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ABSTRACT 

A software package was developed for use as a design 
tool in the conceptual design of submarines on the 
Computervision CGP— 200X Designer System, a turnkey 
computer aided design hardware and graphics software 
system. The philosophy behind the software package is to 
keep all major design decisions under control of the 
design engineer rather than embedding them within prog- 
ram algorithms. 

Modules are provided for generating three dimensional 
models of the outer envelope and sail, and for the 
interactive design of the pressure hull. This package is 
designed to interface with modules developed separately 
by Patrick Hale which calculate weight estimates, 
principal characteristics, envelope geometry, resist- 
ance, balance, and the equilibrium polygon. Interactive 
graphics are used extensively. 

The software requires a knowledgeable naval architect as 
the user, but does not require an extensive knowledge of 
computers or computer aided design systems. 
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I. INTRODUCTION 



Computer aided design has become an important tool 
in many industries over the last ten years. The capabil- 
ities o-f CAD systems, like those of other computer sys- 
tems, are growing at a phenomenal rate. CAD is now beco- 
ming the standard mode of design for major architecture 
firms and the automotive and aerospace industries. 

Computer aided design has been accepted more slowly 
in the area of naval ship design. The comparatively low 
production rates of naval vessels makes the cost effect- 
iveness of CAD a greater question for ship design agen- 
cies. The scale and complexity of naval combatants makes 
the design of a flexible and comprehensive software 
package a formidable task. 

A number of software packages have been implemented 
for conceptual and preliminary design of surface combat- 
ants in both government and private sector design organ- 
izations. The majority of these tend to be batch 
oriented ship synthesis programs with little or no real 
time interactive design capability. 

This lack of interactive graphics capability is due 
to a number of factors. The concern for standardization 
and the lengthy process of government certification and 
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procurement create a substantial delay between the ini- 
tial availability and subsequent installation o-f new 
hardware. Computer aided design, despite its acceptance 
in some major industries, is nevertheless unproven in 
the world o-f naval archi tecture. Many design procedures 
used in naval architecture are somewhat subjective and 
di-f-ficult to quanti-fy. 

A -further impediment to the use o-f CAD in naval 
architecture has been the tendency o-f many early soft- 
ware packages to embed many key decisions in program 
algorithms, thus taking the designer out o-f the decision 
loop. Such software does not allow the designer to 
utilize his knowledge and expertise and -frequently pre- 
cludes trading o-f-f design parameters to achieve optimal 
designs. 

In the area o-f submarine design the above problems 
are more acute. The number o-f new submarine designs is 
even less than the number o-f surface combatants. Accu- 
racy is o-f more importance in submarine design. Where 
-feet and tons may be acceptable limits o-f tolerance in a 
large surface combatant inches and pounds frequently 
determine the limits of accuracy in submarine design. 
This is due to the requirement to achieve a hydrostatic 
balance in both the submerged and surfaced conditions, 
as well as the premium attached to internal volume and 
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deck area. 



Submarine designers are -fewer in number than their 
surface counterparts, and o-ften have many design rela- 
tionships tied to subjective criteria developed over 
years o-f experience. So-ftware which does not allow the 
designer to make use o-f this subjective design -flex- 
ibility is not likely to be accepted by the design 
community. 

The so-ftware developed in this thesis, titled 
CADSUB (Computer Aided Design o-f Submarines), accomp- 
lishes a -first pass through the submarine design process 
at the conceptual level o-f design. In conjunction with 
the Ocean Engineer thesis written by Pat Hale, the 
complete package includes modules -for the calculation o-f 
weight estimates, envelope and pressure hull geometry, 
speed and power, basic hydrostatics, weight and moment 
balance, and the determination o-f the equilibrium 
polygon. 

A primary design philosophy -for the so-ftware was to 
develop it -for use by a competent naval architect who is 
not necessarily an expert in the use o-f computers. 
Critical design decisions are le-ft to the user rather 
than being embedded in program code. Opportunities are 
provided to override program algorithms where necessary 
to implement the desires o-f the individual designer. All 
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communications between the user and the program utilize 
standard naval architecture terminology, making it 
unnecessary -for the user to learn specific computer 
terminology. In addition, if the designer is familiar 
with the operation of the CAD system he may easily exit 
the program at appropriate points and tailor the design 
to provide more detail or alternate geometry and 
analytical procedures. Interactive graphics are used to 
provide a clear visualization of the design as it 
develops. 
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II. USES OF COMPUTER AIDED DESIGN 



The communication of ideas and information is an 
essential element of all engineering endeavors. Histor- 
ically the primary medium used for communication and 
storage of information has been paper. Paper has the 
advantage of allowing both long term storage and the 
distribution of information to a large number of users 
at a moderate cost. However, information, once committed 
to paper, is sometimes difficult to modify. 

The advent of modern computer aided design 
technology offers the opportunity to improve the design 
process by removing some of the limitations imposed by 
paper. Using a CAD system, a designer may develop, 
analyze, and refine ideas and solutions to engineering 
problems in a fraction of the time required using paper 
and hand calculations. Once a design exists in the form 
of a three dimensional model in a computer data base, it 
may be recalled, displayed, and modified in a manner 
analogous to the way in which documents may be edited by 
a word processor. During the evolution of a design over 
a period of several years with input from numerous 
designers, the use of a CAD system can facilitate 
storage of all information pertaining to a design in a 
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central location, ensuring adequate access to this 
in-formation -for everyone involved in the design process. 

The term computer aided design has been in exist- 
ence -for approximately thirty years. The earliest 
applications o-f computer aided design were limited to 
two major areas — electronic dra-fting with computer 
controlled plotting pens and computer programs used to 
process numerical data. Modern CAD systems integrate a 
wide variety of functions including geometric modeling, 
simulation, engineering analysis, testing, interfacing 
directly with the manufacturing process, and automated 
drafting. These capabilities allow manufacturers to 
build solid models of engines, road test automobiles, 
and examine the stability of offshore structures on 
computer screens prior to construction of prototypes or 
models. 

The foundation of computer aided design techniques 
is the computer representation of a part's size and 
shape, known as the geometric model. The simplest repre- 
sentations of models are wire frame drawings which 
depict the outline of the shape with a simple mesh. With 
improvements in CAD technology it is increasingly more 
common to use the more realistic looking solid modeling 
technique to provide visual representation because it 
more thoroughly specifies each facet of the object being 



10 



pro-f i led. 

Solid models are handled by CAD systems almost as 
i-f they were real objects. Models may be inverted, spun, 
or cut. They may be used to calculate physical proper — 
ties such as weight and center o-f gravity. Now, in a 
matter o-f a -few minutes or hours, it is possible -for an 
engineer to ascertain the week spots in a structural 
design or the behavior o-f a dynamic system. 

Computer aided design has become -firmly entrenched 
as a valuable tool in both the automobile and aerospace 
industries. As a result, the design process in these 
industries has been speeded up signi-ficantly. Other 
industries, such as shipbuilding, are now beginning to 
accept computer aided design. 

GEOMETRIC MODELING 

The process o-f creating a computer based 
representati on o-f a design is the most basic application 
o-f modern computer aided design. Using the graphics 
capabilities inherent in a CAD system, the design 
engineer creates a three dimensional model o-f a new 
part. This model may then be rotated or cut in cross- 
section to expose exterior and interior details. Other 
parts which exist in the data base may be called up and 
added to the part being designed. In this manner the 
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interaction and fit between parts and systems may be 
checked and designs modified to allow for interference 
before the manufacturing process begins. 

ANALYSIS OF DESIGNS 

In-service behavior of a model may be predicted 
with finite element analysis. Several developments in 
the last few years have made the use of finite element 
analysis more useful and less time consuming. Automated 
mesh generation is among the most important of these 
developments. 

At one time data for finite element programs were 
written out by hand and then keypunched into a computer 
for batch processing. This resulted in large quantities 
of numerical printouts which required an experienced 
analyst to evaluate. With the advent of preprocessing 
techniques the operator could interactively construct 
the finite element mesh directly on the CRT screen. 

The latest trend in finite element analysis is 
automatic mesh generation. Using this technique the 
operator divides the part shape into coarse four sided 
areas. Mesh density is then specified and nodes are 
automatically positioned by the computer. Some modeling 
programs exist which use free mesh generating 
techniques, making it possible to create meshes for 
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parts with irregular curves, internal cutouts, and 
intricate details. Automatic mesh generation makes it 
possible to conduct analysis of parts using a -finer mesh 
than possible with manually generated meshes. Further- 
more, costs are considerably less when automated mesh 
generation is used since labor costs are signi-f icantly 
reduced . 

Following creation of the mesh and analysis by a 
finite elements program postprocessing routines are used 
to interpret the results and reduce the need to analyze 
voluminous numerical data. Contour plots may be used to 
indicate lines of constant strain, or color may be used 
to differentiate between different levels of stress. 
Deformed shape plots may be generated to show model 
di splacement . 

Finite element techniques are routinely applied to 
stress analysis problems. They may also be applied to a 
wide range of other problems including fluid mechanics, 
heat flow, acoustics, and electromagnetics. 

SIMULATION 

An application of computer aided design which is 
becoming increasingly more popular is that of simula- 
tion. When used in conjunction with geometric modeling 
and finite element analysis, simulation may be used to 
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preview the dynamic behavior o-f a design in service. 

Simulation programs now being introduced permit the 
designer to profile in three dimensions the behavior of 
complex equipment or machinery. A single part may be 
studied as a component of a dynamic system in order to 
assess the loads it is likely to encounter. Finite 
element analysis may then be employed to determine 
stress distribution. 

Design software packages generally include capa- 
bility for simulating simple forms of mechanical 
behavior. These kinematic programs mimic the paths of 
cams, gears, links, and other mechanisms which undergo 
cyclic or repetitve movement. A number of turnkey sys- 
tems are capable of animating the motion of simple 
pivoted devices such as hinges, doors, or cranks. 
Programs for simulating more complex mechanisms are 
usually obtained as unbundled software. 

Systems undergoing large displacements may be 
simulated using displacement analysis programs. Those 
systems which have been analyzed by this technique 
include the suspension system of an automobile as it 
makes a turn, nuclear reactor handling mechanisms, the 
movement of control linkages and robots, high-speed 
mechanisms, and construction equipment. Cll 
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BENEFITS OF COMPUTER AIDED DESIGN 



The acquisition, maintenance, and training costs of 
a CAD system constitutes a significant capital 
investment. It must, therefore, provide substantial 
benefits to justify its cost. This is not a simple 
evaluation to make since there is not likely to be a 
reduction in design costs following installation of a 
CAD system. Savings are more often realized in indirect 
ways which are difficult to quantify. 

The principal benefit of computer aided design is 
likely to be in the areas of cost avoidance and risk 
reduction. Computer aided design, because it speeds the 
design process, allows more time to explore design 
alternatives. Several companies which have made sub- 
stantial use of CAD systems have proven that the time 
required to complete individual design tasks may be 
reduced significantly. For example, prior to the 
implementation of CAD, engineers at Pontiac took up to 
six weeks to design a cylinder head combustion chamber 
by manually calculating complex geometric constructions. 
Using CAD, this task may now be completed in three days. 
Since the time to complete an individual design is 
reduced, the time available for design optimization and 
study of alternatives is increased. 
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The ability to model several parts in a design and 
study their interaction with one another and with other 
systems makes it much easier to design around inter-fer — 
ences. This reduces the amount o-f rework required during 
production. 

By reducing the time required -for individual design 
tasks, providing time to study alternatives, and reduc- 
ing rework, studies show that cost overruns and redesign 
costs may be reduced by as much as 50%. [23 

CHAPTER SUMMARY 

This chapter has brie-fly outlined the major capa- 
bilities and applications o-f computer aided design. The 
implementation of CAD has the potential, if properly 
managed, to increase both the productivity and effect- 
iveness of the design process, and thus improve the 
productivity and quality of the manufacturing process. 

Computer aided design must not, however, be viewed 
as a replacement for a qualified designer. The CAD 
system is operated by a human, and the designs generated 
on the CAD system, as with any other computer system, 
are only as good as the data on which they are based. 
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III. DESCRIPTION OF THE COMPUTERVISION CGP-200X DESIGNER 



SYSTEM 

When developing computer aided design software, 
particularly software which relies heavily on graphics, 
access to a CAD system is extremely helpful. The system 
used during the course of this thesis was the Computer- 
vision CGP— 200X Designer System. This chapter contains a 
brief description of the Designer System. 

The CGP— 200 X Designer System is a dedicated CAD 
system consisting of the following major components: 

— CGP— 200 X Graphics Processor 
— Storage Module 
— Inst a view Workstation 
— CAD Software 
— System Plotters 

The CGP-200X Graphics Processor processes data and 
performs calculations related to the overall operation 
of the CAD graphics system. It consists of a graphics 
processor and a magnetic tape unit. The graphics pro- 
cessor is a high-speed data manipulation and storage 
device which controls all Designer System operations. 
Associated with the graphics processor’s central 
processor unit are two memory boards, each capable of 
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storing either 128K or 512K, 16-bit words. The magnetic 
tape unit stores design in-formation entered into the 
system on magnetic tape so that it may be transferred to 
other systems or maintained as a backup copy. [3D 

The Storage Module, or disk unit, stores design 
information onto a multi— sur -faced 300 megabyte disk 
pack. The operating system (OS) resides in a protected 
portion of the primary disk. Multiple disk packs may be 
supported, providing additional disk storage space and 
the possibility of increased disk and file access speed. 

Communication between the design engineer and the 
Graphics Processor is achieved with the Instaview Work- 
station. Components making up the Instaview Workstation 
include the following: 

- Graphics display screen 

- Graphics tablet, electronic pen, and menu 

— Alphanumeric keyboard 

— Image Control Unit 

— Workstation printer 

The graphics display screen allows the user to view 
model geometry and detail drawings as they are being 
constructed. In addition, the screen also displays the 
text of commands used to construct graphic elements. 

This text occupies an area of either four or twenty— four 

lines of eighty columns. 
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Within the graphics area of the display screen 
entry of graphic information is managed by a cursor. It 
is used to locate positions on the screen to be digi- 
tized and to identify existing graphics. For example, if 
a line is to be drawn between two points, the cursor is 
used to. locate first one point to be digitized and then 
the other. The cursor may be controlled either with the 
electronic pen and graphics tablet or by direct entry of 
data points with the alphanumeric keyboard. 

The graphics display screen may be either a mono- 
chrome or color raster scan CRT. The monochrome display 
is a nineteen inch, 1000 line, high— resolution, green 
phosphor CRT. Color graphics are provided on the Insta- 
view C terminal. In addition to the same raster scan 
technology used by the monochrome display, up to sixty- 
four color combinations (seven basic colors and twenty- 
four shades which are definable by layers and views) may 
be used to reduce design time and increase accuracy by 
providing heightened graphics discrimination. C4 1 

Entry of of graphics information may be accomp- 
lished in two ways. In the event that exact locations 
are required, the keyboard may be used. The alternative 
is the graphics tablet and electronic pen. C53 

The graphics tablet has two distinct areas on its 
surface. These are the graphics area, which directly 
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corresponds to the graphics area on the display screen, 
and the menu area, which provides a -fast means o-f en- 
tering graphics commands. The menu area consists o-f a 
number o-f small squares, sometimes referred to as 
•function keys. Each square on the menu can represent a 
specific command, eliminating the need to type the com- 
mand from the keyboard. A maximum of 512 squares may be 
programed to perform particular functions or a series of 
operations. C63 

The electronic pen is the activating device that 
locates positions or identifies existing graphic enti- 
ties on the screen. Positions located, or digitized, 
generally define construction or coordinate information. 

Like most computer systems, the Designer System is 
equipped with a keyboard for entry of alphanumeric 
information. It contains sixty-seven key positions, 
including upper and lower case, special symbol keys, and 
a numeric pad. The menu and keyboard may be used inter — 
changeabl y. 

Incorporated into the Instaview terminal is the 
Image Control Unit, or ICU. The ICU has twelve switches 
and eight buttons which perform various functions that 
dramatically affect the image displayed on the graphics 
screen. Functions controlled by the ICU include the 
display characteristics of text information (number of 
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lines) and graphics (brightness and darkness quality of 
background and graphics). In addition, the ICU allows 
dynamic manipulation o-f model geometry, making the con- 
struction and viewing o-f geometry easier. Dynamics capa- 
bilities provided by the ICU include enlarging or 
decreasing the apparent size o-f the model (zoom), moving 
the model in any direction o-f the graphics screen 
(scroll), and rotation o-f the model on any o-f the 
several available axes. 

While generating a model or drawing on the Designer 
System, it is often desirable to make temporary working 
copies o-f the work in progress in a hardcopy -format. 
This capability is provided by a desktop thermal dot 
matrix printer which serves as both a line printer and 
plotter, producing copies o-f both text and graphics. 
Once a model design or drawing has been completed high 
quality pen or dot matrix plots may be generated using 
one o-f several plotting devices. 

Operation o-f the Computer vis ion Designer System is 
controlled by CADDS 4X software. Within CADDS 4X two 
operational levels exist. These are the Operating System 
(OS) level and the Computer — Aided— Design and Drafting 
System (CADDS). 

Operating System level activity is non— graphic in 
nature, and generally concerns the internal management 
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of CADDS 4X. Tasks performed at the OS level include 
creation and manipulation of data files, text files, and 
programs, as well as file transfer operations between 
the system disk and magnetic tape. 

The second operational level, CADDS, is the level 
at which all graphics operations take place. Within this 
level there are two modes of operation? model mode and 
draw mode. These two modes exist because of the differ — 
ences in thought processes normally associated with 
design and drafting. Model mode is used to create a 
representation of a real world three-dimensional object. 
When in model mode, the designer is creating an actual 
three dimensional layout of model geometry. 

When constructing a model, one begins by activating 
a part. Next, a drawing is activated and one or more 
views are defined to display the model geometry. Using 
different views the designer may observe the model from 
a number of different viewpoints. Any number of drawings 
may be used to portray various aspects of the part. For 
example, one of the products of CADSUB is a drawing 
depicting a submarine outer envelope, pressure hull, and 
sail. By blanking from view various entities it is 
possible to obtain drawings which show only the outer 
envelope or only the pressure hull. 

Drawing mode is used to generate drawing represen— 
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tations of the model by modifying or editing the model's 
geometry to change its visual appearance. Detail draw- 
ings with dimensions, text, and notes may be developed. 
When the drawing mode is used to edit the visual 
appearance of the model, changes that are made only 
affect the particular view in which the graphic 
modification takes place. This is in contrast with the 
model mode where changes made in one view are reflected 
in all views. 

The CADDS 4X graphics was designed to be easy to 
learn and to use. It is an English based language, so it 
is not necessary for the operator to have significant 
knowledge of computers. Commands are entered by either 
typing them in on the keyboard or by using the menu. 
Traditional English spelling conventions are used for 
all commands, eliminating the need to learn computer 
commands and making the system easier to learn. 

An extremely useful feature of the Designer System 
is the on-line documentation facility. This documenta- 
tion is available to the operator at any time while in 
the graphics level, and allows the operator to obtain 
information about commands without leaving the worksta- 
tion to consult a manual. A hard copy of this documenta- 
tion may be made using either the workstation printer or 
the system line printer. 



23 



A series o-f commands or -functions may be executed 
by using execute -files. In those instances where a 
combination o-f computer graphics and non— graphic proces- 
sing are required high level programming languages may 
be used to meet unique needs. 

Several applications packages are available -for the 
Designer System. These include Finite Element Modeling, 
Plant Design, Mechanical Design and Drafting, Wiring 
Diagrams, Printed Circui t/Electrical Schematic, Numeri- 
cal Control, and others. Each of these packages enhance 
the utility of the Designer System in specific areas. 

The primary purpose of this thesis is to develop a 
software package which utilizes the interactive graphics 
capabilities of the Computervi si on system, yet presents 
options and requests information in terms easily under- 
stood by a naval architect. This provides a useful 
design tool which requires only a minimum level of 
knowledge about the system to operate. 

The Computervi si on Designer System is an extremely 
powerful tool for use in computer aided design and 
engineering. It is fairly easy to learn and become 
proficient with basic operation. However, like all 
computer systems, there is no substitute for experience 
if one expects to fully realize the Designer System’s 
full potential. 
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This description of the Designer System is by no 
means complete. For a more thorough explanation of the 
system the reader is referred to the various Computer — 
vision manuals which provide detailed information about 
the system- 
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IV. cadsub: the application of computer aided design to 

SUBMARINES 



Before a new technology is universally accepted it 
must -first be tested and proven to be useful and approp- 
riate for the purpose for which it is intended. Computer 
aided design is no exception. The widespread acceptance 
of CAD by the automobile and aerospace industries may be 
viewed as an endorsement of its usefulness. It does not 
necessarily follow, however, that CAD is equally useful 
in all industries. In order to make a reasonably intel- 
ligent evaluation of the usefulness of CAD to the early 
stages of submarine design, the major focus of this 
thesis was the development of user interactive software 
which integrates both graphics and numerical calcula- 
tions. Modules developed in this thesis create and 
display graphic displays of envelope geometry, aid in 
the design of the pressure hull, and demonstrate the 
techniques which may be used to model appendages. Appen- 
dix I contains a copy of the graphic output produced by 
these modules. Together with modules developed by Hale 
in his thesis "Computer Aided Conceptual Design of Sub- 
marines”, these programs constitute a package of 
programs referred to as CADSUB. CADSUB is intended to 
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serve as a tool to aid in the conceptual design of 
submarines. 

CADSUB is written in NEWVAR, a macro language 
available on the Computervision CGP— 200 X Designer 
System. NEWVAR allows the coupling of graphics commands 
with mathematical calculations in an execute file. This 
makes it possible to create a program which processes 
data and executes graphics commands for the user without 
requiring him to have an extensive knowledge of the 
graphics system. From the programming point of view, 
program development is simplified because graphics com- 
mands are similar to those used when manually manipula- 
ting graphics. It is not necessary to have the extensive 
knowledge of the internal workings of the computer. 

Unfortunately, this convenience is not obtained 
without a price. NEWVAR’s major disadvantage is its 
slowness, particularly when displaying text on the gra- 
phics screen. The handling of data files is complicated 
by the fact that all values written to or read from data 
files must be in the form of text variables. NEWVAR has 
no format statements, making it difficult to write 
organized output files. VARPR02 is a newer Computer — 
vision macro language having some improved data transfer 
and formating features. It is not, however, subject to 
compilation before execution, and is thus significantly 



27 



slower than NEW VAR. 



The modules developed for this thesis are contained 
in four NEWVAR programs. They are: 

MIT.FORMC 
MIT. ENV 
MIT.PHULL 
MIT.SAIL1 

With the exception of MIT.FORMC each of these modules is 
designed to use data from either from direct interaction 
with the user or from pass files created in previously 
executed modules. Listings for each module are found in 
Appendix II. Simplified flowcharts of each module are in 
Appendix III. A description of data files created by 
CADSUB is included in Appendix IV, and layer descrip- 
tions are in Appendix V. 

A. THE DRAWING FORM 

The module MIT.FORMC is the only module not 
normally executed by CADSUB. It is used for the one time 
generation of a standard format drawing, or Form Part. 
This is a standard feature of the Computervi si on 
Designer System which allows creation of a standard 
drawing which may be used in any number of different 
designs. 

A standard C size (17"x22" > drawing format was 
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selected -for the construction o-f this Form Part. The 
actual size of a hard copy plot may be scaled at the 
time the plot is made. 

In addition to doing such mundane tasks as drawing 
a border and title block, three areas for the display of 
information are defined on the formatted drawing. The 
largest area is a table providing detailed pressure hull 
segment information in a spreadsheet format. Data dis- 
played includes an identifying number for the segment, 
the forward and aftermost points of the segment, 
diameters at these locations, volume, and the location 
of the segments center of buoyancy. A maximum number of 
twenty pressure hull segments is allowed, and data for 
all twenty are displayed simultaneously. 

The Pressure Hull Design Summary displays informa- 
tion concerning the pressure hull, which is created in 
the pressure hull module. Volume Required is the total 
volume of the pressure hull. This does not include 
volume reserved for air flasks, appendages, or other 
everbuoyant items. Volume Used is the volume occupied by 
pressure hull segments which make up the pressure hull 
at any given time. The Volume Remaining is simply the 
difference between the required volume and the volume 
used. The center of buoyancy of the entire pressure hull 
is also displayed. 
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The principle characteri sties of the submarine are 
displayed in the third data display. Characteristics 
shown include length overall, diameter, the extents o-f 
the parallel midbody, submerged displacement and center 
o-f buoyancy, and the envelope displacement. 

B. ENVELOPE GEOMETRY 

A graphic display o-f the envelope geometry is 
created in the module MIT.ENV. Execution o-f this module 
is largely automatic, and requires the user only to 
specify the type of terminal (color or monochromatic) 
being used. The only reason for this interaction is the 
strange and inconsistent effects observed when using 
color commands on a monochrome terminal. 

Following specification of terminal type the 
program obtains offsets and principal dimensions from 
pass files created in earlier modules. To make full use 
of the available screen area an appropriate scale factor 
for the drawing is then selected based upon the overall 
length of the design. Lengths may range up to 888 feet. 
Since the CGP-200X requires an origin to be specified 
for each view shown in a drawing, the location of the 
origin is also calculated using the overall length and 
scale factor. This allows the centering of the envelope 
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graphics on the drawing. 

When constructing a geometric model on the CGP- 
200X, one must -first activate a part and a drawing. The 
drawing used is the Form Part generated by the module 
MIT.FORMC. Using the layering -features o-f the CGP— 20OX, 
the areas o-f the drawing used to display pressure hull 
data are blanked, or removed -from view. Next, three 
views o-f the model are defined. These are top, left, and 
a standard isometric view. If desired, any of these 
views may by manually manipulated by the user using the 
dynamics capability of the Designer System to provide a 
view of the model from any perspective. The top view is 
not used in CADSUB in its present form, and is blanked 
invisible immediately after its creation. It is provided 
to facilitate arrangement and deck layout. The left view 
provides a profile of the submarine’s port side. 

A scale is next drawn to provide orientation to the 
user. Two scales, one horizontal and one vertical are 
drawn and labeled. The locations of the aft most point 
of the forebody and forward most point of the afterbody 
are indicated with two markers. This entire process is 
somewhat time consuming and could be eliminated alto- 
gether if a single, fixed scale were used. However, 
clutter is reduced and the overall appearance of the 
drawing is improved by using a scale which matches the 
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design. 

As explained by Hale, a total o-f 132 unequally 
spaced o-f -f sets are used to properly portray hull curva- 
ture and transition at section junctions. C73 These 
o-f -f sets are now plotted and used to -fit a Bezier spline 
curve which forms the envelope profile. This two 
dimensional envelope outline is then rotated about the 
submarine's centerline to form a surface of revolution. 
A mesh pattern is superimposed on the surface to aid in 
visualization of the resulting three dimensional form. 

The submarine's principal characteristics are next 
displayed on the drawing, and program execution passes 
to the next module where the pressure hull is designed. 

C. PRESSURE HULL DESIGN 

The most complex graphics module now in CADSUB is 
MIT.PHULL. Information entered interactively by the user 
is processed to generate both numerical and graphical 
data on the CRT display. 

As in the previous module, the first step taken is 
to obtain data from pass files. This data includes the 
diameter, overall length, length of the forebody and 
afterbody, and the fullness coefficients which define 
the forebody and afterbody. 

The first information required from the user is the 
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amount of the A weight to be reserved -for everbuoyant 
items such as air -flasks, appendages, and structure 
which are not included in the pressure hull. Following a 
prompt which displays the A weight, the user inputs the 
number o-f tons he wishes to reserve. The required 
pressure hull volume is then determined by reducing the 
A weight by the amount to be reserved converting weight 
to volume. 

Next, the isometric view o-f the outer envelope is 
blanked and the layers containing the pressure hull 
design summary and detailed pressure hull segment inf or — 
mat ion are activated. The pressure hull design summary 
is then initialized by displaying the required and 
reserved volumes. 

The pressure hull is made up of one or more seg- 
ments, each having fairly simple geometry. C83 The de- 
sired shape is selected from a menu. Shapes currently 
allowed by CADSUB include the following: 

Right circular cylinder 
Conical Transition 
Flat plate end closure 
Spherical end closure 
Elliptical end closure 

Spherical sonar dome with end closure 
The user also has the option of requesting the diameter 
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of the outer envelope at any location a-ft o-f the -forward 
perpendicular or changing an existing segment with the 
edit -function. 

D. PRESSURE HULL SEGMENTS 

Once the shape o-f the pressure hull segment is 
selected the user is prompted -for in-formation which 
specifies that shape's geometry. In most cases this 
consists o-f the location of the forward and aftmost 
points of the segment and diameters at these points. All 
information provided by the user is stored in arrays so 
that it is readily available if needed. 

CADSUB uses this information to generate graphics 
in a two step process. First a two dimensional profile 
of the segment is drawn, then rotated about the center — 
line to form a surface of revolution. A mesh pattern is 
added to aid visual ization. 

For simple segments such as cylinders, cones, and 
flat plate closures this is a line. Spherical segments a 
formed by rotating a circular arc about the centerline. 
The graphics command used to draw elliptical segments 
requires four points. These are two endpoints, one at 
the outer end of each axis, a point on the ellipse, and 
the intersection of tangents perpendicular to the axes. 
These locations are calculated by the program and do not 
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require any additional input -from the user. 

Following construction o-f graphics the volume and 
center o-f buoyancy o-f each segment is calculated analy- 
tically. This in-formation, together with the locations 
and diameters o-f the ends o-f the segment are displayed 
on the drawing as detailed segment in-formation. The 
total volume used, volume remaining, and center o-f buoy- 
ancy o-f the entire pressure hull are also updated. 

When a spherical end closure is selected the user 
has the option o-f directly entering endpoints and dia- 
meters or selecting an automatic closure. The automatic 
closure option requires a speci-f ication o-f a volume to 
be enclosed by the segment as well as the location and 
diameter o-f the base. It then calculates the radius 
endpoints o-f the segment. 

A spherical sonar dome may be specified with three 
inputs. These are the sphere diameter, diameter o-f the 
access trunk leading to the sonar sphere, and the center 
o-f the sphere. Once specified, points defining the 
sphere in the format required to generate graphics are 
calculated, the volume and center of gravity of the 
sphere (without the small volume occupied by the access 
trunk) are calculated, and the appropriate values are 
displayed on the drawing. The user is then informed of 
the location of the aft most point on the sonar sphere 
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and prompted -for the location o-f the aft most point of 
the access trunk. A right circular cylinder is used to 
construct the access trunk. 

E. CHANGING THE PRESSURE HULL 

As construction of the pressure hull progresses it 
may become apparent that it is unacceptable that it 
simply will not balance properly. It is also possible 
that the user may input an incorrect value and find 
himself looking at a pressure hull segment which is not 
what he wanted. Both of these situations may be cor- 
rected using the pressure hull editor routine. 

When requested, the editor requests the segment. to 
be deleted. All graphics and numerical data relating to 
this segment are then erased from the screen. Volume 
used, volume remaining, and pressure hull center of 
buoyancy are all changed to reflect this deletion. 

The user is next presented with a menu similar to 
the one used to select pressure hull segments. Should 
the user desire to generate a new segment, he selects 
the form of the segment and follows prompts as if 
entering a new segment. Data pertaining to the new 
segment is displayed in the same location as for the 
segment which was deleted. Following generation of the 
new segment the user is returned to the main menu. It is 
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not necessary to insert a new segment -following deletion 
of another. 

F. WHAT’S THE DIAMETER HERE? 

The scale generated in the previous module is 
designed only to give a general idea of location within 
the envelope. Even with the high quality graphics gener — 
ated on a Computervision color monitor it is difficult 
to estimate the diameter of the envelope using only the 
drawing scale. 

It is possible to obtain the diameter of the 
envelope at any location from the main menu. This 
function prompts the user for the location at which the 
diameter is desired. Using the fullness coefficients and 
lengths of the forebody and afterbody the diameter at 
that location is calculated. The diameter is then dis- 
played on the CRT and, after a brief pause so that it 
may be read, the main menu is once again displayed. 

Should the user not check the diameter and try to 
enter a segment larger than the envelope an error 
message will be displayed. The program will then prompt 
for new inputs for a segment of the same shape. 

G. LEAVING THE PRESSURE HULL 

Assuming a pressure hull is finally completed which 
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has a chance o-f balancing, the user may select the 
option to leave this module. He is then asked i-f a hard 
copy plot o-f the drawing is desired, and preparations 
are made to exit the module. 

Prior to entering the next module all data con- 
cerning the pressure hull is saved. This data includes 
all in-formation displayed in the pressure hull summary 
as well as all detailed segment in-formation. 

H. APPENDAGES 

Construction o-f appendages is not now -fully imple- 
mented in CADSUB. The module MIT.SA1L1 was developed to 
demonstrate the techniques which may be used to generate 
a graphic display o-f appendages. 

As in previous modules, pass -files are used to 
obtain in-formation describing the -forebody and after — 
body. In addition a pass file is used to obtain offsets 
which define the sail. The user is prompted for the 
location of the forward edge of the sail. Construction 
of the sail begins by determining several points along 
the curve of intersection between the sail and outer 
envelope. Knowing the location of the sail it is pos- 
sible to determine the diameter of the envelope at any 
point along the length of the sail. Then, using the 
equation describing defining that circle, the exact 
point of intersection may be determined. The points of 
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intersection are plotted and connected using a three 
dimensional Bezier spline curve. This process is done 
twice, once for the port side and once for the starboard 
side. 

The upper edge of the sail is drawn by plotting 
offsets at a constant height above the outer envelope. 
Again, the points are connected with a Bezier spline 
curve. The upper and lower boundaries of the sail are 
connected using a ruled surface. 

Upon completion of the sail, the user is once again 
asked if a hard copy plot of the graphic display if 
desired. Prior to leaving the module the user is also 
asked if he desires to proceed directly to the balance 
module (see Hale). If so, the meshes on all three dimen- 
sional graphics entities are reduced to a two dimen- 
sional form. This is done to enhance the readability of 
text data generated by the balance module within the 
pressure hul 1 . 
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V. EVALUATION OF CADSUB 



A- GENERAL COMMENTS 

So-ftware developed -for this thesis represents a 
■first attempt to incorporate interactive computer gra- 
ph ics into the conceptual design o-f submarines. The 
resulting product is not, by any stretch o-f the imagina- 
tion, a product which may be marketed as a complete 
submarine design product. It does, however, demonstrate 
the utility o-f linking interactive user control, 
numerical analysis, and three dimensional graphics into 
a single powerful design tool. 

The interactive nature o-f the program allows the 
user to control all important design decisions. 
Throughout the development o-f the software it was 
assumed that any potential user would have a well 
founded knowledge of the principles of naval architec- 
ture and submarine design. It is not the purpose of the 
software to replace the designer, only to provide a tool 
which aids in the design process. 

It is the coupling of real time graphic displays 
and numerical analysis which establish the credibility 
and worth of the computer aided design approach of the 
software. The many hours required to perform manual 
calculations and drafting may be reduced significantly 
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by using computer generated graphics. In addition, a 
user having even a rudimentary knowledge o-f the Compu- 
ter vision system can use that ability to go -far beyond 
the capabilities o-f the software as it now exists. 

B. PROPOSED ENHANCEMENTS TO CADSUB 

As mentioned previously CADSUB is not now in what 
could be considered a complete -form. While it has a 
number o-f desirable -features and capabilities, it also 
has a number o-f shortcomings and additional -features 
which should be implemented. Many o-f these are minor and 
require only a little work to overcome. Others will 
require a major e-f-fort to implement. These areas are 
outlined below. 

1. PROGRAM SPEED AND THE USER INTERFACE 

When evaluating the effectiveness o-f computer 
software, particularly software which relies heavily on 
user interaction, the interface between the user and the 
program is just as important as what calculations the 
programs performs or what graphics it generates. Much 
work remains to be done in this area. 

One of CADSUB’ s major deff iciencies at this point 
is the time it requires to complete certain tasks. The 
most glaring examples involve the insertion of 
alphanumeric information into a drawing. The creation 
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and labeling of scales and the updating of pressure hull 
information appear to be almost fascinating the first 
time they are viewed by the user. However, computers 
have the unique ability to slow the apparent passage of 
time, so that after observing such tasks a couple of 
times they become only slightly more interesting than 
watching grass grow. The best solution to this part- 
icular . problem seems to be translation of the software 
into a faster language such as Fortran— S. 

Improvements can most likely be made in prompts 
provided to the user for data and decisions. Currently 
all prompts are provided by printing a menu or a state- 
ment on the CRT and waiting for a response to be typed 
on the keyboard. Computervi si on designed the CGP-200X as 
a user friendly system and incorporated a variety of 
user input devices. Two of these which should be 
evaluated for inclusion in CADSUB are keyfiles and 
dynamic menuing. 

Keyfiles utilize the digitizer tablet to replace 
many of the functions of the keyboard. Using keyfiles it 
is possible to program an area of the digitizer tablet 
to perform a particular command, and thus eliminate the 
need to use the keyboard. For example, to select a 
cylindrical pressure hull segment the user now selects 
an option from a menu by entering a number on the key- 
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board. Using key-files and the digitizer tablet it would 
be possible to select the same segment by digitizing an 
area having a symbolic cylinder drawn on it. 

Dynamic menuing is the process o-F selecting 
instructions which are displayed as keywords on the CRT 
screen. As with key-files, decisions are entered using 
the digitizer tablet. 

The use of keyfiles or dynamic menus may or may not 
enhance the utility of CADSUB. They are, however, 
alternatives which should be investigated. 

2. ERROR HANDLING 

The only significant error handling routine 
currently included in the graphics modules of CADSUB is 
one which verifies that the diameters of pressure hull 
segments are less than the outer envelope diameter at 
each end of the segment. Should one select a menu option 
which is not specified (i.e. option 9 when only 1—7 are 
allowed) will simply return program execution to the 
menu for another response. 

It is possible to crash the program in a number of 
ways. For example, entering letters in response to a 
prompt for numerical information has a catastrophic 
effect and causes the system to exit the program. A 
quirk of the Computervision system is that it has con- 
siderable difficulty in inserting negative values in a 
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drawing as text. 



This problem has been resolved tor 



those areas in which one might expect to tind a negative 
value appear. Should a negative value be encountered 
which must be displayed elsewhere the results could be 
di sappoi nt i ng . 



3. PROGRAM FLOW 

Unless the user is knowledgeable about the Compu— 
tervision operating system he is locked into the 
sequence modules are executed by the software . In any 
case, it is not possible to make changes to a pressure 
hull design after it has been created and the pressure 
hull module has been left for the balance module. The 
ability to re— enter individual modules should be imple- 
mented to make it less time consuming to make iterations 
on a design. In the case of the pressure hull this 
simply requires an option to activate a previously 
created design and obtain data from pass files concer- 
ning the pressure hull. This data is already stored when 
the pressure hull module is completed. 

C. FEATURES TO BE IMPLEMENTED 

The number of features which may be added to the 
software developed in this thesis is limited only by 
one's imagination. Development of CADSUB has barely 
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scratched the sur-face in an area ripe -for research and 
devel op men t . 

1. STRUCTURAL DESIGN 

No structural design capabilities are now included 
in CADSUB. This represents a major area in which consid- 
erable work may be done, and also offers an opportunity 
to evaluate the desirability o-f using -finite element 
analysis in an interactive graphics environment. Com- 
puter vision supports automatic mesh generation as well 
as several methods o-f graphically displaying results. 

2. ARRANGEMENTS 

One o-f the most use-ful applications o-f computer 
aided design is likely to be in the development o-f 
arrangements. Using solid modeling techniques three 
dimensional models may be created and maintained 
throughout the design process. 

Development o-f arrangements should begin with 
creation o-f decks. This may be done by either explicitly 
calculating the lines o-f intersection of the proposed 
deck with the pressure hull or by using graphics com- 
mands to insert a plane at a specific location. Exper — 
imentation is required to select the most efficient 
method. 

Implementation of the capability to zoom in on a 
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specific area o-f the design and expand it to use the 
entire area o-f the CRT is highly desirable. Along with 
this capability is the requirement -for a dynamic display 
o-f location to provide orientation to the user. The 
scale created by CADSUB when drawing the outer envelope 
is fixed in place and not suitable for this purpose. 

The use of three dimensional solid modeling would 
be of considerable use in developing three digit weight 
reports. Each piece of equipment included in the design 
may be represented by a model stored in a library of 
parts. Each solid model has a volume, weight, and center 
of gravity associated with it. This data may be 
extracted when the model is inserted in the design. 
Thus, the accuracy of the total weight is dependent on 
the accuracy of data contained in the library and its 
completeness. Creation of a library of equipment for use 
in arrangements is not likely to be a trivial task. 

The use of three dimensional modeling may also have 
a significant impact on reducing interference problems. 
Automatic interference checking routines would allow the 
resolution of interf erences in the computer model long 
before actual construction begins. 

3. DESIGNS USING NON-CIRCULAR CROSS SECTIONS 

This thesis has dealt only with submarine designs 
having circular cross sections. Pressure hull segments 
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include only those having a simple shape -for which 
volumes and centers of gravity are easily calculated. 

Pressure hull segments which -follow the contour or 
the outer envelope may be easily implemented by adding 
the appropriate data input prompts to the pressure hull 
module. A routine to calculate volume and center o-f 
buoyancy using numerical integration is also required. 
The routine to calculate the envelope diameter at any 
location already exists and may be used to obtain points 
■for integration as well as inclusion in graphics 
commands. 

The design o-f a submarine not having a circular 
cross section may be implemented using techniques 
slightly different from those now used for designs 
having a circular cross section. 

Envelope geometry of designs having a circular 
cross section are constructed by obtaining offsets, 
plotting them to obtain a two dimensional representati on 
of the envelope, then rotating the outline about the 
centerline to obtain a surface of revolution. To con- 
struct a model of a non— circular design it is first 
necessary to plot not individual offsets but a series of 
cross sections. These cross sections may the be con- 
nected using standard graphics commands to generate a 
three dimensional Bezier spline surface. Pressure hull 
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segments having non— circular cross sections may be 
generated in a similar manner. 

D. CONCLUSIONS 

Computer aided design using both graphics and 
interactive programming has the potential, i-f properly 
managed, to improve the design process by allowing time 
to examine more alternatives in greater detail. The 
software developed -for this thesis uses only a small 
-fraction of the capability available on a modern CAD 
system. In fact, much of what is now done in CADSUB can 
easily be implemented on any one of several microcompu- 
ters. However, the potential uses and benefits of com- 
puter aided design far exceed those of mi crocomputers. 

The application of CAD technology to the ship 
design process is just beginning and offers considerable 
potential. As with all new technology it must be pro- 
perly managed. CAD should be viewed as a tool to aid the 
designer in making decisions. It should not be seen as a 
means to either shorten the design process or to reduce 
the manpower required to develop a design, but rather as 
a means to improve the design process. 
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APPENDIX I 



SAMPLE OUTPUT FROM GRAPHICS MODULES 
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APPENDIX II 



PROGRAM LISTINGS FOR GRAPHICS MODULES 
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2U! <# 

2 I ! <* PRESSURE HULL DESIGN SUMMARY 

22 ! <# 

23! INSERT TEXT "PRESSURE HULL DESIGN SUMMARY" HGT. 1875* XI 4. 75Y8.4<CR> 
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4 I ! READF 2 ,*LF 
42! RF.AOF 2. ALLA 
43! READF 2.ALCBSB 
44! READF 2.ADSUB 
45! READF 2.AUENV 
46!D1 AM=ADI AM 
4 /!L()A=AL()A 
4d!LF«ALF 
49! LLA«ALLA 
50 ! LCBSU B *A LCBSB 
51 !nSUB=S»OSUB 
52! DENV=ADENV 
53!LA*LOA-I.LA 
54!&LA*LA 

55! OPENR 3. "MIT. PASSPH2" 

56!REA0F 3.AAWGHT 



56 



5 / ! HE At JF 3.4NAME 

5d! <# 

50! <* HOUND OFF VALUES 



61 !DlAM=AlNT((DlAMf.05)*10)/10 
62 1 AD 1 AM=u i AM 

63 ! LOA=( A INK (L0A+.05)* 10) )/IO 
64!<tLOA=LOA 

65! LF=( A 1NT( ( LF+.05 ) * 10 ) ) / 10 
6o!4LF=LF 

6 /! LA=( A I NT( ( LA+.05) * 1 0 ) ) /1 0 

6d!4LA=LA 

60!&LCdSB=LCBSU6 

VO ! DSUB= ( A I NT ( ( DSUB+. U5 ) * I 0 ) ) / 1 0 
/I UDSUb*DSUB 

72! DENV=( A INT ( ( DENV+.05) * 1 0 ) )/l 3 
73!&DENV=UENV 

74 ! <0 **************** ************************* 

7b 1 <# SET UP CSIZE OHAWING 

/6J <# «************************* **★♦***★****★*★ 

77J4CSIZE 

/d! <# 

79! <» SELECT SCALE FACT OH 

SO! <# 

d I ! IF (L0A.LE.l4b) SCL=d 
B2!IF (LOA.GT. 14B.AN0.L0A.LE. Ib5) SCL=IO 
a3! IF (LOA.GT. 165. AND. LOA.LE. 222) SCL=I2 
B4 ! IF (LOA.GT. 2?2. AND. LOA.LE. 296) SCL=16 
65! IF ( LOA.GT. 206 . AND.LOA.LE. 3 70) SCL=20 
d6! IF (LOA.GT. 370. AND. LOA.LE. 440) SCL=24 
6/! IF (LOA.GT. 440. AND. LOA.LE. 502) SCL=32 
db! IF (LOA.GT. 502. AND. LOA.LE. 740) SCL=40 
BO! IF (LOA.GT. /40> SCL=4B 

01 i<# detehmine Location of ohigin 



93!X0RC=I .75-M 1B.5-L0A/SCD/2 
94! Y()HG=I 2. 25 

05! <# 

06! <# ACTIVATE DRAWING 

OBIACTIVATE PAHT MIT.SUBDRA MUNITS FT 

oojactivatI: drawing Fohmat Form mit. sub. Format draw fohmc 

1 OO! SELECT LOISCRIMINaTIoN WHITE LAYER 0 <CH> 

101! IF (STYPE. HO. "C" ) DISCRIMINATE LAYER 
I 02! SELECT LDISCHIMINATION YELLOW LAYER 1.5 <CH> 

103! IF (4TYPE. EO. “C" ) DISCRIMINATE LAYER 
104 SSEI.ECT LDISCRIMINATION HED LAYER 2 <CH> 

105! IE (4TYPE. EO. "C M ) DISCRIMINATE LAYER 
I06!SELE:CT MODE DRAW 
I07!ECH0 LAYER EXCLUDE 200 
1 06! ECHO LAYER EXCLUDE 205 
1 00! SELECT LAYER 0 

I 10! <# 

II I !<# DEFINE VIEWS 

1 1 2 ! <# 

II31DEF VIEW TOP CPL TOP SCALE I IN TO ISCLJ FT TILT 00« XI XORGI Yt YORGJ <* 
1 1 4 ! . XI YB.5, X2 I Y1 o<CR> 

1 I 5! BLANK VIEW NAME 'TOP' 

II01DEF VIEW LEFT CPL LEFT SCALE 1 IN TO ISCLJ FT • XI XORG J Yl YOHG J <* 
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I |7! «XI Yd.S,X2l Vie><CR> 

I I o! OEF VIEW ISO CPL ISO SCALE I IN TO (SCL+/I FT* XIIY6.Q<* 
I 1 V ! ,X 1YI ,XI JVd<CH> 

1 20! SEL CPL LEFT 

I2l!<# 

1 22 1 <# ORAW SCALE 

I 23! <# 

1 24 l IF (OEC.EO. I ) GOTO ENV 

1 2S! <#****************★*****★ ****************** 

1 26 ! <# GENERATE SCALE 

12 7 ■<#★★★★★★*★★★*★★★★★*★*★ ★*****★★★**★★*★*★*★★★ 

I2B!#SCaLE 

I2V!<4 

130! <0 INITIALIZE VARIABLES 

13 I !<# 

I32!SCHAD=DI AM/(SCL*2) 

I 33! YSC=II .B-SCRAD 
I34JSCLOA-LOA/SCL 
135! INOIO/SCL 
!36!YINC=YSC+. 125 

13 II <# 

! 3B ! <# DRAW HORIZONTAL SCALE LINE 

139! <# 

140! INSERT LINE* XI XORGJ Y( YSC J .XI XONG+SCLOA ] Yt YSC J 
I 4i ! DISC ENT CLE'.R RED 

142 ! <» 

I43!<# DRAW SCALE MARKINGS 

I 44 ! <0 — — — — 

I 45! XINC=XORG 
I461REREAT 

14/! INS LIN: XI X I NC I Y t Y I NCI-. X[ X INC 1 Yt YSC ) 

14b! XINC*XINC+1N0 
1 49 ! XOIF=X1NC-XORG 
1 50MJNTIL (XDIF.GT.SCLOA) 

152! <* LABEL SCALE 

153! <# 

154 ! I LBL*IO 
1 55! XINC=X()UG 
156! XOFH*. I 
157! YLBL-YSC-.2 

I 5B! INS TEXT “FR" HGT.I25* XI XORG-. I25IYI YLBLJ <CR> 

I59!<# 

1 60! <# DE TERM INK LABEL INCREMENT 

161 !<# 

162! IF (SCL.LT.24) GOTO DRLBL 

I63!#LHL2 

lo4! ILBL*20 

165! INC*2* INC 

I 66! GOTO DRLBL 

I6/!#DRLBL 

I 6B ! XINC=*X INC+ INC 

I 69! LbL*ILBL 

I701&LBL-ILBL 

I / I ! REBEAT 

172! IF (LBL.GE. !00) X()FF*=. 130 
173! XLBL“XI NC-XOFF 

174! INS TEXT [ALBLJ HGT.I25* XI XLBL ] Y I YLBLJ <CR> 

175! LBL-LBL+ILBL 
I / 6! &LBL-LSL 
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I 7/! XINOXINOINC 
I 7d ! XDIF=XiNC-XORG 
l/Q*UNTIL ( XDI Fo GT.SCLOA ) 



1d0!<# ■ 

I b I ! <# DRAW ENTRANCE AND RUN MARKERS 

I d2! <# 

1 d3! SCLF c LF/SCL 
I d4 ! SCLA-LA/SCL 
Id5! XLF*XOR0+SCLF 
I d6! XLA=XORG+SCLA 

Id /! INSERT LINE* XI XLFJ YI YSC J ,Xf XLFJ YI YSC+. Id /51 , XI XLF-. 375 ] <CR> 
Iddi INSERT LINE* XI XLAJYfYSC] ,X( XLA I Y I YSC+ . Id /5 1 • XC XLA+.375J <CR> 
IdR! <# — 



I OU 
101 
1^2 
103 
|Q4 

105 

106 
107 
I Ob 

lug 



<# DRAW VERTICAL SCALE 
<# — — — ~— 

XVSC=XORG-.5/5 

INSERT LINE* Xf XVSCJ Y( YORG-SCRAl) J . Xf XVSC ] Y ( YORG+SCRAD ] <CR> 

<# 

<# DRAW SCALE MARKINGS 

<# — 

YINC*Y()HG 

lNC=5/SCL 

REPEAT 



200 

201 

202 

203 

204 

205 

206 
20 / 
20d 

2og 



INSERT LINE* X ( XVSC I Y f Y I NC J • I X* 125 <CE> 
YINC=YINC+lNC 
UNTIL (YINC.GT.YORG+SCRAD) 

Y I NC=YORG 
REPEAT 

Insert LINE* Xf XVSCIYCYINCI.IX. I25<CR> 
Y INC=Y INC-I NC 
UNTIL ( YlNC. Li’ . YORG-SCRAD) 



<# LABEL VERTICAL SCALE 



210 ! 
211 ! 
212 ! 
213! 
214! 
215! 
216! 
21 7 ! 
2ld! 
2IQ! 
220! 
221 ! 
222! 
223! 
224! 
225! 
226! 
22 /! 



XLBL* XVSC-. 0/5 
YI NC=Y0RG-.0625 
INC»1 O/SCL 

INSERT TEXT "CL” HOT. 125 RJT* Xf XLBL ] YC YINCJ <CR> 
ILBL* 1 0 

IF (SCL. LT. 24 ) GOTO DRVLB 

ILBL*2U 

INC=2MNC 

#ORVLB 

YLBL=Y INC+ INC 
LBL=I LBL 
&LBL=LBL 
REPEAT 

INSERT TEXT I &LBL J HGT.125 RJT* Xf XLBL ) Y f YLBL ) <CR> 

YLBL*YLBL’MNC 

LBL=LBL+ILBL 

*L8L*LBL 



22d ! UNT I L (YLBL.GT.YORG+SCRAD) 

220 l YLBL* Y INC- INC 
230 ! LHL*I LBL 
23 1 !&LBL*ILHL 
232 * REPEAT 

233 i INSERT TEXT ULHLJ HGT.125 RJT* Xf XLBL] YC YLBLJ <CH> 
234! YLBL*YLBL-INC 
235! LBL-LBL+ILBL 
236! dLBL-LBL 
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23 / J UNTIL ( YLBL. LT. YOHG-SCH AD- . 0625 ) 

23d ! <* 

239 !<# DM AW ENVELOPE 

240! <# 

241 !#ENV 

242ISLLECT MODE MODEL 

243 ! SELECT LAYER I 

244! I NS LIN« XOYO.XILOAlYO 

245! 1=1 

24o!TG=l 

24 / ! &TG=TG 

24d! INSERT HSPLINE INTR TAG=UTGH<# 

249! #NEXf XI Xt I > JYIYCI) I , <# 

250 ! I = I + 1 

251 ! IF (I.LE.I32) GOTO NEXT 
252! <CK> 

253! INSEPT SREV HI ANG 360 MESH dXdi TAG [ 4TGI t XOYO. XI LOA I YO<CR> 

254 !<* 

255! <# DISPLAY PRINCIPAL CHARACTERISTICS 

256! <# ■— 

257 {SELECT MODE DRAW 
25d! SELECT LAYER 0 

259! INSERT TEXT UNAMEl HGT.25« X14.5Y!<CH> 

260! SELECT LAYER 199 

261! INSERT TEXT ULOAJ HOT. 1875 HJT« X20.25Y5.25<CR> 

262! INSERT TEXT t&DlA.MJ HGT.Id/5 RJT» X20 . 25Y4 .93 75<CH> 

263! INSERT TEXT CALF J HOT. Id75 HJT* X20.25Y4.625<CH> 

204 ! INSERT TEXT ULa) HGT.Id75 RJT« X20.25Y4.3I25<CH> 

265! INSERT TEXT [ALCBSUI HGT. I d75 HJT« X20.25Y4<CR> 

266! INSERT TEXT UDSURI HGT.Id/5 HJTi X20.25Y3.6d75<CH> 

26 /! INSERT TEXT UDENV] HGT.Id/5 HJT» X20 . 25Y3 . 3 /5<CH> 

26U ! 

269! #FND 

2/0! RUN NEW M IT. PHUI.L 
271 ! END 
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MIT.ABCD.PHUI.L 
5-I5-B4 FUTIL 0.21 



I ; <# ********************* ************* ****** 

21 <rf MIT.PHULL 

3!<***** **************************** ******** 

4 ! <# 

5!<# USED TO GENERATE PRESSURE HULL GEOMETRY 
6 ! <# -DRAWS 3D REPRESENTATION OF HULL FORM 
/!<# -CALCULATES AND DISPLAYS PARAMETERS 
d! <0 

0 * <#*«*****• ******************************** 

IO!DIM AFr<20) ,FWD( 20 ) .PDA ( 20 ) .PDF( 20) ,LEN<20) .VOL (20) .XCB(20) 

1 1 IDIM TPEC20) 

I2!P1=3. 14150265 

I 3! <•******************************* 

14! <# OBTAIN DATA FROM RASS FILES 
I 5! <#*** *************************** 

I6!()PENR I ,“MIT. PASSPHI" 

I 7 ! READF I.ATYPE 
I d!l)lA.'4=ATYPE 
10! READF I.ATYPE 
20!L()A=ATYPE 
2 1 ! READF I.ATYPE 
?2!LF=ATYPE 
23! READF I .A TYPE 
24 !LA*aTYPE 
25! READF I.ATYPE 
26! READF I.ATYPE 
27! HEADF I.ATYPE 
2B! READF I.ATYPE 
29 (NF*ATYPE 
30! READF I.ATYPE 
31 ! NA=ATYPE 

32! OPENR 2, "MIT. PASSPH2" 

33! READF 2.ATYPE 

34 ! AWGHT*ATYPE 

35! HAD*Dl AM/2 

36JEXECV 

37 ! PRNT 

3d ! PRNT 

39! PRNT 

40 ! ATYPE S AW3HT 

4 I ! PRNT AWE IGHT= t ATYPE I 

42 ! AWGHT* ( A INT( ( AWGHT+.05 ) * 10 ) )/l 0 

43 ! READ (NUMBER OF TONS OF AWtlGHT TO BE RESERVED IS — > ) ATYPE 

44 ! HES=ATYPE 

45 ! TWGHT=AWGHT-HES 

46 ! TV()L*TWGH I’ *35 

47 ! RES=RES*35 

4d! AHES*WES 

40 ! <# 



50! <# UPDATE SUMMARY 
52! <*U> 

53! SELECT MODE DRAW 
54 » BLANK VIEW NAME 'ISO' 
.55! ECHO LAYER INCLUDE 200 
5o! SELECT LAYER 200 
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57 

5d 

5g! 

60 

61 

02 

63 

04 

65 

60 

6 / 

6b 

69 

10 

n 

12 

73 

/4 

75 

/o 

77 

7b 

/g 

dO 

dl 

d2 

d3 

d4 

d5 

d6 

d7 

dd 

dg 

go 

gi 

g^ 

g3 

g4 

g5! 

go 

g/ 

gd 

gg 

too 

101 

102 

103 

104 

105 

106 
107 



atvol*tvol 

INSERT TEXT (TVoU HGT.ld/5 RJT* X20. 25Yd<CR> 

INSERT TEXT "U" HGT. 1 B7d RJT* X2U . 25Y7. 6d7S<CR> 

INSERT TEXT (TVOLJ HGT. Id /5 RJT* X20 . 25Y / . 3 /5<CR> 

INSERT TEXT C RES J HGT. Iti75 RJT * X20. 25Y7.0725<CR> 

INSERT TEXT "0" HGT.ld/5 RJT* X20. 25Y6. /5<CR> 

<* SELECT LAYER AND TAG 

SELECT MODE MODEL 
SELECT CPL LEFT 
SELECT LAYER 2 <CH> 

<*U> 

TG= 1 1 

#SEG 

ERR1 =0 

ERR2=0 

ATG=TG 

ITG=TG-10 

<#**★★★*★★***★**★******★****★★** 

<9 MAIN MENU 

<#**★ *************************** 

EXECV 

#MENUI 

PENT 

PENT SELECT FORM OF PRESSURE HULL SEGMENT 

PRNT 1 -CYLINDER 2-C0N1CAL SEGMENT 3-FLaT PLATE CLOSURE 

PRNT 4-SPHERICAL CLOSURE 5-ELLIPTICAL CLOSURE 6-SONAR AND ACCESS 
READ (7-OBTAlN DIAMETER E-EDIT X-LEAVE — >) ATYPE 

IF (ATYPE.EQ. ”1") GOSUB CYLIN 
IF (ATYPE. EG . m ? u ) GOSUB CONE 
IF (A TYPE. EU. “3“ ) GOSUB PLATE 
IF (ATYPE. EO. m 4 m ) GOSUB SPH1 
IF (ATYPE.EQ. "5" ) GOSUB ELLIP 
IF (ATYPE.EQ. 4, 6 M ) GOSUB SONAR 
IF (ATYPE. HQ. " /" ) GOSUB GETR 
IF (ATYPE.EQ. “X") GOSUB' STP 
IF (ATYPE. EQ."E"> GOSUB EDIT 
<# 

IF (ATYPE.EQ."/*) GOTO MENU 1 

IF (ATYPE.EQ. "R") GOTO SEG 1 

TPE(ITG)»ATYPE 

GOSUB UPDATE 

4SE01 

TG-TG+ 1 

GOTO SEG 

#STP 

GOTO END 

<************************* ****** 

<# SPHERICAL SEGMENT OF ONE BASE 

< 4 ****************************** 



1 Od ! tfSPHI 
lOgiPRNT 
I *0! PRNT 
1.1 1 ! PRNT 
* 12! PRNT 
1 1 3! READ 
1 14! IF 
115! IF 



SPHERICAL ENDCLOSURE 
CHOOSE METHOD OF INPUT* 

< I- INPUT ENDPOINTS 2 -CALCULATE 
(ATYPE.EQ. "2") GOTO CALPT 
( ATYPE. NE. " 1 " ) GOTO SPH1 



endpoints From volume— > ) atype 



1 16! EXECV 
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117! MiP I 

IldlPRNT INPUT ENDPOINTS 

I 1 9! HEAD (FORWARD MOST POINT OF SEGMENT IS — > ) &FWD 

120! PEA!) (AFT MOST POINT OF SEGMENT IS — > ) &AFT 

121! READ (DIAMETER OF FORWARD MOST POINT IS— > ) 4PDF 

I 22! READ (DIAMETER OF AFT MOST POINT IS — > 1 APDA 

I 23! FND< 1 TO) *AFWD 
I 24! AFT < ITO)=*AFT 
1 25! PDF ( ITG) =API)F 
I 26 ! PDA ( ITG)=APDA 
I 2 7! LHN ( ITG) =AFT ( ITG)-FWD (ITG) 

12d!G()SUB CHECK 

129! IF (ERRI .EO. I .0R.EHR2.E0. 1 ) GOTO SPI 
I301G0SUB SPSET 
13UG0T0 SPDRA 

132 ! <0 

1 33! <# CALCULATE POINTS FROM GIVEN VOLUME 

I 34! <# 

135! #CALPT 
I 361EXECV 

I 3 7! PwNT CALCULATE ENDPOINTS FROM VOLUME 
1 3d! READ (REQUIRED VOLUME OF SEGMENT IS — > ) &VOL 

i39!head (Location of segment base is — > ) aloc 

1 40! HEAD (DIAMETER OF SEGMENT BASE IS — > ) APDF 

141! V()LUME=AV()L 

I42!L0C=AL0C 

1 43! <# 

I 44 ! <# DETERMINE ORIENTATION 

I45!<# 

146! IF (LOC.LT. (LOA/2)) PDF(ITG>=0 
147! IF (LOC.LT. (LOA/2)) PDA < ITG) =APDF 
I 4d! IF (LOC.GT. (LOA/2)) PDA(ITG)=0 
149! IF (LOC.GT. (LOA/2)) PDF < ITG) =APOF 

151 !<# CALCULATE LENGTH OF SEGMENT 

)52!<# 

153! IF (PDF(ITG).EQ.O) R*PDA(ITG)/2 
154! IF (PDA( ITG).EO.O) H=PDF( ITGJ/2 
I 55! A*3*(R**2) 

I 56 ! B*6*V0LUME/P I 

I5 /!SQR=S0HT < < B**2)/4+ < A**3 )/2 7) 

1 5d! AA=< B/2+SQR) ** < I /3 ) 

1 59!BA=B/2-SQH 

160! IF (BA.Lf.O) BC=-BA 

101 ! IF (KA.LT. O) BB*-(BC**< 1/3)) 

162! IF (BA.GT.O) BB=BA**(l/3) 

I 63 ! LEN< ITG)=AA-*-BB 

164! IF (POF( ITG) .EO.O) FWfX ITG)=L()C-LEN ( ITG) 

165! I.F (PDF( ITG). EO.O) AFT(ITG)=L()C 
.166! IF (PDA( ITG). EO.O) FWD(ITG)*L()C 
167! IF <PUA( ITG). EO.O) AFT( ITG)*L()C+LEN( ITG) 

I 6d!G0SUH CHECK 

169' IF (ERRI .KQ. 1 .OR.ERR2.EQ.2) GOTO CALPT 
I701G0SUH SPSET 
I 71 JGOTO SPDRA 

I 73 ! <0 DRAW SEGMENT 

1 74! <# 

I 75!#SPDRA 
I 76 ! <~U> 
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1 7 /! INSERT ARC TAG-UTG) « X[ X I J Y ( Y U ♦ XI X2 J YU , XI X IJ Y( -Y U <CR> 
1/d! INSERT SREV H I ANG= 1 dO MESH dXd * TACC 4TG3 t XOYG , XI LOA J YO<CR> 
I /9i <~U> 



IdO 
1 d l 
1d2 
1 d3 
I d4 
Id5 
Id6 
I d 7 
Ibd 
1 d^ 
\90 
I* I 
N2 
IW 
104 

I 05 
|06 
107 
IOd 
IW 
200 
201 
202 ! 

203 

204 

205 

206 
20/ 
20d 
200 
210 
211 
212 

213 

214 

215 

216 
21 / 

2 1 d! 

2 1 9 

220 
221 ! 
222 ! 
223! 
224! 
225! 
226! 
22 /! 
22d ! 
229 ! 
2301 
231 I 



<0 

<#CALCULATE 

SWAO=( PD**2)/( d*LEN ( ITG))+LEN( ITG)/2 

VOL ( 1 TG)=(LEN< ITG)**2)*PI*(3*SRAD-LEN< ITG ))/3 

CH=SRAf j-. 75*( ( 2*SHAw-LEN( X aG ) ) **2)/( 3*3RAD-LEN( ITG ) ) 

IF (POF( ITG) . EQ.O) XCB ( 1TC )=FWD ( ITG) +CB 

IF ( PDA ( ITG) • EQ.O ) XCB( ITG)=AFT( ITO-CB 

RTNSUB 

<f -« — 

<* SET UP C(X)RI)1NATE3 FOR PLOTTING 
r^SPSET 

PD=POA(iTG) 

X 1 =AFT ( ITG) 

X2=FwO(iTG) 

Y I =PI)A ( ITG )/2 
PI)=PI>F( ITG) 

XI=FW)( ITG) 

X2=AFT( ITG) 

Y I =-P'3F ( ITG )/2 



IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 



(PJF( ITu).EO.O) 
( Pf)F( ITG) • EQ.O) 
(PDF( ITG). EQ.O) 
< PDF( ITG). EQ.O) 
(PDA (ITG).EO.O) 
( PDA ( ITG). EQ.O) 
( PDA ( ITG). EQ.O) 
( PDA ( ITG). EQ.O) 
Rl'NSUH 

<* CONICAL SEGMENT 

#C()NE 
PRNT 
PR NT 
PRNT 
REAL) 

REA!) 

READ 
HEAD 

FWD< ITG) 

AFT! ITG) 



CONICAL SEGMENT 

(Forward most point of segment is — > > afwd 

(AFT MOST POINT OF SEGMENT IS — > ) &AFT 
AT FORWARD MOST POINT IS — > ) &PDF 
AT AFT MOST POINT IS — > ) &PDA 



(DIAMETER 
(DIAMETER 
•4FW0 
&AFT 



PDF ( ITG) =& PDF 
PDA ( ITG )»&PDA 

LEN( ITG)»AFT( ITG)-FWD( ITG) 

GOSUB CHECK 

IF (ERR I .EQ. I .Ok.ERH2.EQ. I ) GOTO CONE 

<# 

<# DRAW CONICAL SEGMENT 

<0 

X»=FWD< ITG) 

X2*AFT< ITG) 

Yl =PDF( lTG)/2 
Y2*PDA( ITG)/2 
<~U> 

INSERT LINE TAG*! &TGI * X [ X 1 1YIY1 I*X(X2JY(Y2) <CR> 

INSERT SREV HIANG-360 MESH dXd « TAGITC ]« XOYO , X( LOA J YO<CR> 
<*U> 



232! <# CALCULATE CONICAL PROPERTIES 
233 ! <* 

234 ! V()L( ITG)»LEN( ITG ) *PI ★ ( POF ( ITG) **2+PDA( ITG) **2+PDF( ITG) *PDA ( ITG > )/ I 2 
235! IF (PDA( ITG) .LT.PDF! ITG)) GOTO CONB 
236 ! 01 -PDA ( ITG) 
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237!D2=PDF( ITC) 

23d! GO TO CONC 
234!*C0NB 
240!0I=PDF( ITG) 

241 !Q2=P!)A( ITG) 

242!#CONC 

243!CB*LEN( ITG) •( D|**2+2*D|*D2+3*02 **2)/ ((01 **2+0| *02+02**2) *4 ) 
244 ! IF (PDA( ITG) . CT. PDF( ITG)) XCB ( ITG) =AFT( ITG) -CD 
245! IF (PDF( 1 fG).0E.PDA( ITG ) ) XC3( ITG) =FWD( i IG)+CB 
24o!HI'N3UB 

24 /! <******************************* 

24d! <0 CYLINDRICAL SEGMENT 

244 !<#*****★★ *********************** 

250 ! *CYL1 N 
2o I ! PUNT 
252JPHNT 

253! PUNT CYLINDRICAL SEGMENT 

254! HEAD (FORWARD MOST POINT OF SEGMENT IS — > ) 6FWD 

255 !READ (AFT MOST POINT OF THIS SEGMENT IS— > ) &AFT 

256IHEAI) (DIAMETER OF CYLINDRICAL SEGMENT IS— > ) &PDA 

25/!FWO( ITG)=*FWO 

253 ! AFT( ITG)=4AFT 

254 ! PDF( irG)=AFl)A 

2oU!P0A( ITG) =PDF( ITG) 

261 !LEN( ITG)=AFT( 1TG)-FWD< ITG) 

202 !G()SJB CHECK 

263! IF (ERHI .EQ. I .0H.EHH2.EQ. I > GOTO CYLIN 

265 ! <* DRAW CYLINDER 

266! <# 

267 ! #ORCYL 
263 ! <^U> 

2o4 ! INS LIN TAG=t &TGJ * XtFWD( ITG) JYlPDFf ITG)/2J<# 

2/0! .XI AFT (ITG) IYI PDA ( ITG)/2J <CR> 

2/1 ! INSERT SHEV HIANG 36U MESH 3X16 « TAG! &TGJ ;XOYU. XI LOA J YO<CH> 
2/2!<~U> 

2 / 4 ! < # CALCULATE PROPERTIES 

2/5!<M 

276 ! V()L( ITG) =LEN( ITG)*PI*(PDF( ITG) **2)/4 
2 / / ! XCB ( ITG) =»FWD( ITG)+LtN ( ITG)/2 
2/3JHTNSUB v 

2 / 0 !<#****************************** 

230! <# ELLIPTICAL ENO CLOSURE 

23 1 ! <#****************************** 

2 S2!#ELLIP 
2U3SPRNT 
234 ! PRNT 

2351PRNT ELLIPTICAL END CLOSURE 

236! HEAD (FORWARD MOST POINT OF SEGMENT IS — > > AFWD 

237! HEAD (AFT MOST POINT OF SEGMENT IS — > ) AAFT 

233! READ (DIAMETER OF FORWARD MOST POINT IS— > ) &PDF 

234! HEAD (DIAMETER OF AFT MOST POINT IS — > ) &PDA 

24U1FWD( ITG)=*FH() 

241 !AFT( ITG)»6AFT 
242 ! PDF( ITG) *&PDF 
243! PDA ( ITG)*APDA 
2441LEN( ITG) ®AFT( ITG)-FW|)( ITG) 

245SG0SUB CHECK 

246! IF (ERHI .EQ. I .0R.ERR2.EQ. I ) GOTO ELLIP 
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2^ / 
pod 

3 00 

30 I 

302 

303 

304 

305 

306 
30/ 
306 
300 
310 

31 I 

312 

313 

314 

315 

316 
31 / 
3 Id 
310 

320 

321 

322 

323 

324 

325 

326 
32/ 
32fc 
320 
330 



33 I 

332 

333 

334 
3 36 
336 
33/ 
33d 
330 
340 

34 I 

342 

343 

344 

345 

346 
34 / 
34b 
340 



<#• 

<#- 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 



SET UP POINTS FO R PLOTTING 



X 1 =FWD( 1TG) 
X2*FWDUTG) 
Y2=P1)A( ITG)/2 
X3=AFT(iTG) 
X1=AFT(ITG) 
X2=AFT ( ITG ) 
Y2=PDF( ITG)/2 
X3*FW0( ITG) 



XX=X4*X1 
XX = X 1 -X 4 



(PDF ( ITG) • EG, 0) 

(PL)F( ITG) .EQ.O) 

(PDF( ITG) • EQ. 0 ) 

(PDF ( ITG) . EQ.O) 

(PDA( ITG). EQ.O) 

(PDA ( ITG) « EQ.O ) 

( PDA ( I rG) «, EQ.O ) 

(PDA( ITG). EQ.O) 

Y3=Y 2 

X4«( XI+X3)/2 
IF (P()F( 1TGI.EQ.0) 

IF (PDA ( ITG) • EQ.O ) 

Y4=SQRT( (Y2**2)*( l-(XX**2)/(LEN( ITG) **2 > )) 

<# ————————— — 

<* DP AW ELLIPTICAL END CLOSURE 

<~U> 

INSERT CONIC TAG=UTGJ* X [ X 1 J YO . XI X2 ) Y [ Y2 J . XI X3 J Y ( Y3 ] *X[ X4 J Y [ Y4 J <CR> 
INSERT 5KEV HlANG=360 MESH=dXb I TAG! ATGJ t XOYO . X[ LOA ] YO<CR> 

<~U> 

<# CALCULATE ELLIPTICAL PROPERTIES 

VOL( ITC)=(PI/6)*LEN( ITG) * ( (2*Y2 ) ) **2 
CB=.3/5*LEN(1TG) 

IF (PI)F( ITG). EQ.O) XCS ( ITG) = AFT ( ITG) -CB 
IF (POA( ITG). EQ.O) XCB ( ITG ) °FWD ( ITG) +CB 
RTNSUH 

<#**★★★★***★★★★★★***★***★*★*★*★★ 

<w FLAT plate closure 

<#********* It It Hit it it ***★*****★★★*★★ 



CLOSURE 

CLOSURE 



IS — > 
IS — > 



AFWD 

APDF 



#PLaTE 
PRNT 
PHNT 

PRNT FLAT PLATE END CLOSURE 
head (Location of flat plate 
READ (DIAMETER OF FLAT PLATE 
FND( ITO)=aFWD 
AFT ( I aG>*AFWD 
PDF( ITG) »&POF 
PDA ( ITG) =APDF 
LtN( ITG) =0 
VOL ( ITG) =0 
XCB ( ITG) =AFWD 
GOSUB CHECK 

IF (ERRI .EQ.1.0R.ERH2.EQ. 

<# DRAW FLAT PLATE END CLOSURE 

<# 

X1«FWD(ITG) 

350!Y2»PDF<ITG)/2 
351 !<~U> 

352! INSERT LINE TAG*UTG)i XI X I ) YO f XIX 1 J Y ( Y2 J <CK> 

353! INSERT SREV HlANG-360 MESH BXb» TAGITGJ tXOYO.XI LOA ) YO<CR> 
354! <~U> 

355 ! RTNSUH 

350 !<*★★★★★★*★***★★***★*★★* **★★**★** 



I ) GOTO PLATE 
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35 /!<# SONAR DOME ROUTINE 



35d 
350 
360 
3o I 

362 

363 

364 

365 

366 
36/ 
36d 
360 
3/0 
3/1 
3/2 
3/3 

374 

375 
3/6 
37/ 

3 / o 
3/0 
3dO 
3d I 
3d2 
3d 3 
3ti4 
3d5 
3do 
3d / 
3dd 
3dO 
300 
30 I 
30 2 
30 3 

304 

305 

306 
307! 
30d! ; 
300! 
4U0 

401 

402 

403 

404 

405 

406 
40/ 
40d 
400 



I ; < 0 **** ********************** **** 

) ! #SONAR 
)! RHNf 
!PRNT 
!! PRNT 

(! PRNT SONAR SPHERE 

DREAD (DIAMETER OF sonar SPHERE — > ) 4SDIAM 
>! READ (OIAMETEH OF ACCESS TRUNK — > ) 4PDA 
>! HEAD (CENTER OF SONAR SPHERE — > ) &CEN 

r ! SD lAM=ASDi AM 
l!m‘HNK*4PDA 
DCEN-ACEN 
)! SRAD=SDI AM/2 

! SD-. 5*S0RT(SD1 AM**2-DTRNK**2 ) 

>!SH=SRAD-SD 
1! XL-CEN 

1!<* 

>!<# SET UP POINTS AND PLOT 

> ! <0 — — — — — — — — _____ 

(!XI=CEN+SI) 

DX2-CEN-SRAD 
I! YI=DTHNK/2 
>!FWD< ITG>*X2 
!AFT( ITG)=X1 
?! PI)F( ITG) =0 
1! PDA( I rG)=APDA 
DLEN(ITG)=AFT( ITG)-FWD( ITG) 

>! <~U> 

i ! INSERT ARC TAG=I &TG) * XI X I J Y I Y1 1 .XI X? I YO. XI X I I Yl-Y I I <CR> 

(! INSERT SHEV HlANG=ldO MESHoXd « TAGUTGH XOYO, XI LOA J Y()<CR> 

1 ! <~U> 

i!<# CALCULATE PROPERTIES 

• <0 

>! VSPH=4*PI*(SRAD**3)/3 
)!VSEG*(PI/3)*(SH**2)*(3*SHAD-SH) 

I! V()L( 1TG)=VSPH-VSEG 

» ! CBS6G-CEN*. 75* ( ( 2*SHAI)-LEN ( ITG ) ) **2 ) /( 3*SRAI)-LEN ( ITG ) ) 
>!XCB(ITG)=( VSPH*CEN-VSEG*CUSEG)/VOL(ITG) 
r ! IF (DTRNK.EQ.O) RTNSUB 
IF (DTHNK.NE.O) GOSUJ UPDATE 

I ; <#-- — — _____________ 

>!<# CONSTRUCT ACCESS TRUNK 

ll&AFr-AFTdTG) 

I ! EXECV 
. ! PRNT 
j! PRNT 

>! PRNT THE AFT MOST POINT OF THE SONAR SPHERE IS LOCATED AT I&aFTI 
/! READ ( AFT MOST END OF THE ACCESS THUNK WILL BE LOCATED AT — > > 
1!TG«TG*I 
l.'ATG-TG 
410! ITC-TG-IO 
4 11 !TPE( ITG) *3 
4 12!FWD( ITO-Xl 
4 ! 3 ! AFT ( ITG) -A AFT 
414! PDF ( ITG) -PDA ( ITG- 1 ) 

4|5!PDA(ITG)«PDF(ITG) 

4I6!LEN( ITG) *AFT( 1TG)-FWI)( ITG) 



/ 



&AFT 
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4 1 / !G()bUB DWCYL 
4 I d ! Hi NSULJ 

4tQ‘<#****t***t***tt**t*t1r**t*A>*At*****t* 

420 1 <# UPDATE STATUS AND DISPLAY VARIABLES 

421 !<************************************* 

422! ^UPDATE 
423!<~U> 

424 ! SELECT mode DRAW 
425! SELECT LAYER 200 

426! <# 

42/1 <# UPDATE SEGMENT SUMMARY 

428 ! <* 

429! YL()C=a-. 3 1 25* ITG 

430! <# 

43!!<# HOUND OFF NUMBERS 

432! <# 

4 33 ! FWD( ITG) =( A I NT ( ( FW'M I TO + . 05 ) * !0 ) ) / 1 0 
434 ! AF 1 l U'G) = (A1NT<<AFT<1TG) + .05>*10)>/IO 
435! PDF ( ITG) =< AIN 1 (<PDF( ITG) + . 05 ) * 10 ) )/ 10 
4 36 ! PDA ( I TG ) = ( A I NT ( < PDA( ITG) ♦.05 >* 10 ) )/ 10 
43 / ! V()L( ITG) =( AINT ( ( V()L( ITG) + .05 ) * 1 0 ) )/ 10 
43d! XCH ( ITG ) * ( A I NT < < XCH ( ITG) + .D5 ) * 10 ) )/ 10 
439!AF'WQ=FWD< ITG) 

440!4AFT=AFT( ITG) 

441 !ADFND»Pl)F( ITG) 

442!ADAFT=PI)A( ITG) 

443 ! &V()L a V()L( ITG ) 

444 !&XCB=XCB ( ITG) 

445! INSERT TEXT UFWD) HGT.Id/5 HJT* X3.30YfYL0CXCR> 
446! INSERT TEXT (AAFTI HGT.ld/5 RJT* X5.30YI YLOCI <CR> 
447! INSERT TEXT [ ADFwi) J HGT.ta/5 HJT* X /. 30 Yt YLOC) <CR> 

44a ! insert text i&daftj hot. id/5 rjt» xo.goyiyloci <cr> 
449! insert text UVoU HOT. 1875 RJT« X II . 5 YC YLOC J <CR> 
450! INSERT TEXT [AXCB] HOT. 1875 RJT« Xl3.3YfYL()Cl<CR> 

4a I !<#——— —————— 

452! <* UPDATE DESIGN SUMMARY 

453! <# 

454! PVOL*PV()L+ ( A I NT ( V()L( ITG)* ID))/ 10 

455!RVOL=TV()L-PV()L 

450! IF (RVOL.LT.O) NFLG=I 

457! IF ( NFLG.EO. I ) RV()L=ABS< HVOL ) 

458 !&PV()L*PV()L 
459!ARV0l.=RV()L 

4oO!MOMENT=MOMENT+VOL< ITG)*XCH( ITG) 

461 !LCB«M()MENT/PV()L 
462!LCB*( AlNT< (LCB+.05>*10 ) )/10 
463! IF <TPE ( ITG) . EQ.5) HTNSUB 
464 ! ALCH=LCB 

465IDELETE ENTITY* X20.25Y7.68 /5<CH> 

466! INSERT TEXT UPVOLJ HGT.18/5 RJT« X20.25Y7.6d/5<CR> 
4o7!DEL£TE ENTITY* X20. 25Y 7. 3/5<CH> 

468! INSERT TEXT [ARVOLJ HCT.Id/5 HJT « X20 . 25Y7.3 /5<CR> 
409! IF (NFLG.EO.!) ECHO LAYER INCLUDE 205 
4/0! IF (NFLG.EQ.O) ECHO LAYER EXCLUDE 205 
4 / 1 IDELETE ENTITY* X20. 25Y6. 75<CR> 

4/2! INSERT TEXT ULCB) HGT.ld/5 HJT* X20. 25Y6. /5<CR> 
4/3! IF (NFLG.EO. I ) RV()L*-HV()L 
474! IF (NFLG.EO. I ) NFLG=0 
4/5 1 SELECT M(X)E MODEL 

4/o iselect layer 2 
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4 //!<~U> 

4 /d! HINSUB 

4 /<J • <>*★★★ ******** *•**★**★ ***★★*★**★* 

4dO! <M PRESSURE HULL EDIT SUBROUTINE 
4dl i <**••*•••*•*•*••••••*••**••***•• 

4o2!PEDlT 

4J3! <# 

4d4!<# DELETE PRESSURE HULL SEGMENT 

4d5! <# — — 

436 ! PR NT 
4u / ! PUNT 
4dd!PRNT 

480!HEAI) ( SEGMENT TO BE DELETED IS -->) &ITO 

400!MAXTG=TG 

401 ! ITG=4 ITG 

402!TG=ITG+ 1 0 

403 ! ATG=TG 

404! <~U> 

4051DELETE ENTITY * TAGl ATGJ <CR> 

40o ! XI)EL=( Fwl)( ITG) +AFT ( ITG))/2. 

40/!YDEL=5 

408! DELETE ENTITY « XI XDEU YC Yl)EU <CH> 

400SHHHAINT 

500! SELECT MODE DRAW 

5oi ! select layer 200 
502! YLOC=d-. 31 25* ITG 
50.3!I)ELETE ENTITY* X3.30YI YLOC)<CH> 

504!DELEfE ENTITY* X5. 30YI YLOC J <CH> 

505 !l)ELETE ENTITY* X7.30YI YLOCJ<CH> 

50$ [DELETE ENTITY* X0.30YIYL0C)<CR> 

507 ! DELETE ENTITY* XI I . 5YI YLOC 1 <CH> 

50d! DELETE ENTITY* XI 3.3YI YL()CJ<CR> 

500 ! <-* 

510! <M UPDATE SUMMARIES 

511! <# 

512! PVoL«P VOL-VOL < ITG) 

51 3! RV()L a TVOL-PV()L 

514! IF (WVOL.LT.0) NFLG=I 

515! IF (NFLG.EQ. I) HVOL=*ABS (RVOL) 

5 1 6 !&PV()L=PVoL 
51 / ! AHVOL»RV()L 

5 I d ! M()MENT=MOMENT-V()L( ITG) *XC» (ITG) 

5 1 0 ! LCB*M()MENT/PVOL 

520 ! LCB= ( A I NT ( ( LCB+. 05 ) » 1 0 ) ) / 1 0 

521 !&LCB=LCB 

522!DELErE ENTITY* X20. 25Y /.6d /5<CH> 

523! INSERT TEXT l&PVOLJ HGT.Id/5 HJT * X20.25Y7.O875<CR 
524! DELETE ENTITY* X20.25Y /.3 /5<CR> 

525! INSERT TEXT C&HVOLJ HGT.Id/5 HJT* X20. 25Y7. 3 /5<CR> 
526! IF (NFLG.EQ. I) fcOHO LAYER INCLUDE 205 
52/! IF (NFLG.EQ. 0) ECHO LAYER EXCLUDE 205 
52d!DELETE ENTITY* X20.25Y0. 75<CR> 

520! INSERT TEXT ULCB) HGr. 1875 RJT* X20.25Y6. 75<CR> 

530! IF (NFLG.EQ. I ) RVOL— RVOL 

531! IF (NFLG.EQ. I ) NFLG-0 

532 ! PDF( ITG) “0 

533! PDA( 1TG)»0 

534 JFWD( ITG) *0 

535! AFT ( ITG)*0 

536 ! VOL ( ITG)*=0 
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53 7 ! XCB ( ITG ) =0 
53a!LEN( ITG) «U 

540 ! <•* HEPLACE DELETED SEGMENT 

541 i<p 

542JSELECT MODE MODEL 
543! SELECT LAYER 2 
544 ! <”*U> 

545! EXECV 
546! #MENU<! 

547 ! PRNT 

54BJPHNT SELECT FoHM OF PRESSURE HULL SEGMENT 

540! PRNT I -CYL INDEX 2-CON I CAL SEGMENT 3-FLAT PLATE CLOSURE 

55U1PRNT 4-SPHER ICAL CLOSURE 5-ELLIPTICAL CLOSURE 6-SONAR AND ACCESS THUNK 

55 I ! HEAD (7-OBTAlN 1)1 AMETEH R-RETURN MAIN MENU X-LEAVE — >) ATYPE 
552 ! IF (&TYPE.EC. “I ••) GOSUH CYLIN 

553! IF ( AlYPE.EQo "2" ) GOSUB CONE 
554! IF (ATYPE.EQ. J '3«) GOSUH PLATE 
555! IF (ATYPE.EO. "4" ) GOSUB SPHI 
556! IF (&TYPH.EG. "5 JI ) GOSUH ELLIP 
55/! IF (ATYPE. HO. "6" ) GOSUH SONAR 
55B ! IF C ATYPE.EQ. "7" ) GOSUB GETH 
550! IF ( ATYPE. EG. "X* 1 ) GOSUB STP 
560! r PE ( ITG) =A TYPE 
5o) !TG*MAXTG-I 
562JHTNSUB 

563! <#****************************** 

564! <# PLOT MAPI) COPY 

565! </* *++**** + ** + *********+** ★****★★ 

5 66 ! fr P LT 
56/! PRNT 
5ob ! PHNT 

560! PRNT PLOT ROUTINE 

5/0IREAD (DO YOU WISH TO PLOT DRAWING AS IS? — >) ATYPE 
571! IF (MTPE. EQ. "Y") PLOT DOT SCALE .5 
5 72! EXECV 
5/3! PHNT 

5 74! HEAD (1)0 YOU WISH TO PLOT ISOMETRIC VIEW? — >) ATYPE 
5/5! IF <ATYPE.EQ."Y M ) GOSUB PLTISO 
576! HTNSUB 

5 //!<*» 

5/6! <# PLTISO 

5/0!<# 

5aU!#PLflS0 

5a I! ECHO LAYER EXCLUDE 200 
5a2! UNBLANK VIEW NAME 'ISO' 

5a3!PLOT DoT SCALE .5 
5U4 ! BLANK VIEW NAME 'ISO' 

5B51ECH0 LAYEH INCLUDE 200 
5a6! RTNSUB 

56 /! <# *********************************** 

5aa ! <w detehmine diameter at given location 

5agi of*********************************** 

5Q0!#GETrt 
50 1! EXECV 
502! PRNT 
5R35PHN1 
504! PRNT 

505 ! HEAD (LOCATION AT WHICH DlAMETEH IS WEQUlHED — > ) XL 
506IGOSUB DHAD 
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50/! PRNT 
50a!PwNT 
500 ! PRNT 

60OSPHN1' ENVELOPE DIAMETER AT (XL] IS (2*KADI J FEET 
001 ! 1 ») 

602! REPEA r 

603! 1 = 1*1 

604 ! UNTIL ( I . EQ.600 ) 

605! RTNSUH 

6oo ! <# — — 

6(>/!<#CALCULaTE RADIUS 

ooa!<# 

6005 ADRAD 

610! IF (XL.I.E.LF) GOTO FRONT 

61 I! IF (XL.GT. (LOA-LA)) GOTO AFT 

6 I 2 ! I F (X1..GT.LF. AND. XL. I.E. (LOA-LA)) KADI=RAD 

0 I 3IRTNSIJB 

6 I 4 ! #FRON T 

015! XX=LF-XL 

6 16! FAD I =HAD* ( l-( XX/LF) **NF > ** < l/NF) 

61 7JRTNSUB 
6 I a! #AFT 

610! XX=XL~ ( LOA-LA ) 

620! RADI =HAD* ( l-( XX/LA) **NA) 

621 ! RTNSU3 

6 22 •<#*************★■******■***★****** 

623! <# CHECK FOR EXCESSIVE RADIUS 
624! <#****************************** 

625 ! #CHEC< 

626! XL=FUI)( ITG) 

62/SGOSUB l)H Al) 

62d ! 1 F (NADI .GE. (PDF( lTG)/2 >) EPRI=U 
620! IF (RADI .LT. <PDF( 1TO/2 )) EWRI=I 
630! XI.=AFT( ITG) 

03HG0SUH DHAD 

632! IF (RADI .C£. (PDA ( ITG >/2 > ) b'RR2=0 

633! IF (RADI .LT. ( PDA( 1TO/2 ) ) ERR2=I 

634! IF (ERR I . EQ.O. AND. ERR2. EQ.O ) RTNSUB 

6351PRNT 

6301PHNT 

63/1PRNT 

63d !PRNT 

630! IF (EHR1.EQ. I) PRNT ***ERROR*** FORWARD DIAMETER EXCEEDS ENVELOPE 
040! IF (ERH2.E0. 1) PRNT ***ERROR*** AFT DIAmET'ER EXCEEDS ENVELOPE 
64 I iHTNSUa 

642! <#****************************** 

643! <0 EXIT MIT.PHIJLL 
6 44! <# ****************************** 

645 ! #ENI) 

646! PrtNT 
64 7! PRNT 

64a! HEAD (DO YOU WISH TO MAKE A COPY OF THE DRAWING? ) ATYPE 
, 640! IF ( ATYPE. EQ. *Y u ) GOSUB PLT 

650! <# 

651 ! <# SAVE DATA 

I 653! #SAVE 

054 !EXECV 
655! PrNT 
6oo!PHNT 
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65 7 ! PhNT 

65a ! PH nT SAVING PRESSURE HULL DATA... 

650JOPENW I ,"M IT. PAS5FWD" 

60U! OPEN"! 2, "•* IT. PASSAK1 '• 

66 I ! OPENW 3. “MIT. PASSDFWD" 

6e2! OPENW 4. -MIT. PASSDAFT" 

663! OPEN/I 5. "MIT. PASSVoL" 

664 ! OPENW 6. "MIT. PASSXCB" 

666! OPENW /."M1T.PHDATA" 

666 ! OPENW d."MIT.PASSTYPE M 
66 /! 1*1 

666 '.REPEAT 

660! ATYPE“FWf)( I ) 

6/0! WRITEH I .ATYPE 
6/!! &TYPE=AFT(I) 

6/2! WRlTEF 2.&TYPE 
6/3! &TYPE=PDF( I ) 

6/4! WRITEF 3. ATYPE 
675! ATYPE=PDA( 1 ) 

6/6! WRlTEF 4 .ATYPE 
677! ATYPE"VOL< I ) 

6/6! WRITEF 5. ATYPE 
670! aTYPE=XC 5< I ) 
eaO! WKITEF 6. ATYPE 
6al! ATYPE=TPE( ITG) 

6d2 ! WRITEF b. ATYPE 
663! !»!♦! 

664 ! UNT IL (I.GT.20) 

665! ATYPE =TG 
6e6 iWklTHF /.ATYPE 
6b/!ATYPE=TV0L 
666!WRITEF /.ATYPE 
660!ATYPE=RE5 
600 !WrITEF / .ATYPE 
601 !ATYPE*PVOL 
602! WRITEF /.ATYPE 
603 ! ATYPE=HVoL 
604 ! WRITEF 7, ATYPE 
605 ! AT Y PE=LCB 
606!WHITEF 7, ATYPE 

60 / ! 

606 ! <■# DETERMINE NEXT ACTION 

700! EXECV 
/Ol !PRNT 
702 ! PRNT 
703! PUNT 

/04 ! READ (DO YOU WISH To ADD APPENDAGES AT THIS TIME? ) ATYPE 
7u5! IF < ATYPE. EO. "Y") RUN NEW MIT.SA1LI 
/06! END 
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MIT.ABCD.SAILI 
5- /— 64 1 1 « 30*54 FUTIL 0.21 



I ><)<*»* *•*•***•••****•••••***•*••* 

2! <» MIT.SAlLl 

3 j<^****«* ************************ 

4! <# 

5!<» GENERATES DRAWING OF BAIL 
6! <# PREPARES Foil ENTRY TO BALANCE 
7!<# 

U!<************** ***************** 

Q'.DlM SX<26) .SY(26).SZ(2d> 

I01DIM AFT ( 20 ) ,FWD( 20) , PDA ( 2o ) . PDF ( 2u ) ,LhN( 20) , VOL< 20 ) , XCBC 20) 
I I ! DIM TPE<20) 

1 2 ! <#****************************** 

I 3 ! < P OBTAIN DATA FROM MIT.PASSPHI 

1 4 1 <# ****** ************* *********** 

I 5IEXECV 
I6IPRNT 
I ViPRNT 
IUIPHNT 

I91PHNT OBTAINING DATA FROM PASS FILES... 

20! OPENR I ."MIT.PASSPHI" 

2 I ! READF I.ATYPE 
22 !D I AM^ATYPE 
23! READF I .aTYPE 
24 !LOA=ATYPE 

25! READF I.ATYPE 
26!LF=ATYPE 
2/SREADF I.ATYPE 
26 ! LA=ATYPE 
29! READF I.ATYPE 
30! READF I.ATYPE 
3 1 ! RE ADF I.ATYPE 
32! READF I.ATYPE 
33!NF=ATYPE 
34 ! HEaDF I.ATYPE 
35!NA=ATYPE 
36 ! R AD*D I AM/2 

3/!<P 

3b! <# locate sail 

39K* 

40 ! PHNT 

41 sprnt 

42JPRNT 

43! read (Forward edge of sail is Located at — > > SFD 

44 ! GOSUH SAIL 
45! GOTO END 

46! <P ****** ************************ 

4 7! <P DRAW SAIL 

46! <#****************************** 

4^ ! #SA I L 

50! SELECT MODE MODEL 

bl I PHNT 

521PKNT 

53JPWNT 

54 IPHNT ObTAlNING SAIL OFFSETS. «• 

55! <*U> 

56! OPENU l IT. SA I L H 
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5 / ! <* 

5ti ! <# HEAD OFFSETS 

59! 

00! HEADF 1.KTYPE 
61 !SLEN=&TYPE 
62 ! READF l.&TYPE 
63!HT=4TYPE 
64! 1*1 
ob! REPEAT 
60! HEADF I , A TXT 
67! SXX=<iTXT 
6d! SX< 1)=SXX+SFD 
69! HEADF l.&TXT 
AJ! SZ<I>=*TXT 
/I! 1=1+1 

721UNTIL ( I.EQ.29) 

/3!<# 

74 ! <# DETERMINE INTERSECTION POINTS 



/ 5 ! <# 

/6l 1=1 
77 SHEPEaT 
/d! XL=SX( I ) 

79 ! GOSUB DHAD 
bO! SH=HAD I 

dl! SY( I ) =SQRT( SR**2-SZ( I ) ** 2 ) 

62! 1=1+1 

d3 ! UNTIL (I.EQ.29) 

H4 1 <p — 

05! <w OHAW CURVE OF INTERSECTION 

06 ! <#— — — -- — — 

d/! 1=1 
dd! TTG=90 

d9 ! &TG=rrc . 

90! SELECT LAYER 5 

91! INSERT BSPLINE INTR TAG=UTG]»<# 
92! #INCA X( SX ( 1 ) I Y[ SY( 1 ) J Z!SZ(I ) J «<# 
93! 1=1+1 



94! IF (l.LE.2d) GOTO INCA 
95 ! <CH> 

96! 1=1 



9 / ! TTG=92 
9d !4TG=TTG 

99* INSERT BSPLINE INTR TAG=fsTG]*<0 
1 00! #1NCC X[SX<!> lYlSY(I) IZI-CZC I) J.<* 
101 ! I=i+I 

102! IF <l.LE.2d> GOTO INCC 
103! <CH> 

104! <# 

1Ub!<# DRAW UPPER BOUNDARY 



107! 1=1 

i oa i rru= 9 1 

109 !&TG=TTG 
I IO!YT*HAI)+HT 

III! INSEHT BSPLINE INTR TAG*UTGJ»<# 
1 12!#1NCB XfSX(l) IYI YT1ZISZU) l.<# 
11311=1+1 

114! IF <l.LE.2d> GOTO INCB 
115! <Ck> 

I 16! 1 = 1 
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1 1 /!TTG=43 
I I d !&TG=TTC 

1141 INSERT BSPL1NE INTR TAG*! & TG J « <w 
1 2U! #1 NCI) XI SX( I > 3YC YTJZ(-SZ( I ) l.<# 

121 1 1 = 1+1 

1 22! IF (I.LE.20) GOTO INCH 
123! <CR> 

1 24 ! <M 

I 25 ! <# INSERT SURFACE 

126! <# 

I2/!ATG=4U 

l2d!4TGI=4l 

1 24 ! INSERT HSURFACc MEdH6XO» TaGUTG J .TAG! <4 TGI J <CR> 

I 30 ! &TG=42 
131 !ATGI=43 

1 32! INSERT RSURFACE MESH0X6* TACUTG3 .TAGIiTGI J<CR> 

133! <“U> 

I 34 JHTNSUB 

13b! <* *********************************** 

I 36 ! </< DETERMINE RADIUS AT GIVEN L(X3ATI0N 
I 3/! <#*********************************** 

13d! PDHAD 

I 34! IF (XL.LE.LF) GOTO FRONT 

140! IF (XL.GT.(LOA-LA)) GOTO AFT 

141! IF (XL.CT.LF.AND.XL.LE. (LOA-LA)) HADI=RAD 

142! Rl'NSUB 

1 43! CFRONT 

I 44! XX=LF-XL 

I 46 ! UADI =RAD* ( l-( XX/LF) **NF) ** ( 1 /NF) 

I461HTNSUU 

I4/!#AFT 

I 4d! XX=XL-(LOA-LA) 

I 44! RA.DI = HAD*( I — ( XX/LA)**NA» 

1501HTNSUB 

151 ! <#****************************** 

.1 52 ! < # PLOT HARD COPY 
I 53 !<#****************************** 

I 54 ! #PLT 
I 65SPHNT 
I561PRNT 

15/! PRNT PLOT HOIJTINE 

I 5tt ! READ (DO YOU WISH TO PLOT DRAWING AS IS? — >) SANS 
154! IF (&ANS.F.Q. "Y") PLOT DOT SCALE .5 
160! EXECV 
I6IJPHNT 

162! READ (DO YOU WISH TO PLOT ISOMETRIC VIEW? — >) AANS 

1 03! IF UANS.EQ. “Y") GOSUB PLTISO 

1641HTNSUB 

I 66 ! <# PLTISO 

167! <* 

I 6d ! #PLTIS0 

i 64t echo layer exclude 200 

170! UNBLANK VIEW NAME 'ISO' 

I / I ! PLOT DOT SCALE .5 
I 12 1HTNSUB 

I 73 1<<»******* *********************** 

I74K# CHANGE MESH 

I75!<# ******************** ********** 

I 76!#CLEAH 
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I7d!<# HETRI EVE PRESSURE HULL DATA 

I /g| <# 

IdO'PkNT 
lull PUNT 
I <12 ! PUNT 

ld3!PRNT RETRIEV INC PRESSURE HULL DATA 
I U4 ! <*U> 

IdoJOPENH I , J, M IT. PASSFWD" 

I d6 ! OPENR 2."rtlT.PASSAFT" 

Id /! OPENR 7 .“MIT. PHDATA " 

I dd ! 1 = I 
I dR! REPEAT 
190! HEADF l.&TYPE 
19 I! FWD ( 1 ) =&TYPE 
192! REAUr 2.&TYPE 
I 93 ! AFT(I)=ATYPE 
194! 1=1+1 

1 95 ! UNTIL (I.GT.20) 

1 96! RE AOF 7.&TYPE 

I 9 /! TGM=&TYPE 
|9d! TG* 1 1 
190! REPEAT 
200! ITG=rG-IO 

2u I ! X I = ( FWI)( ITG)+AFT( I TG ) )/2 
202! Y I *3 

203! CHANGE SGHAPHICS MESH1 X2 » XI X I J Yf Y I J <CW> 

2U4! TG=TG+I 
205JUNTIL (TG.GT.TGM) 

200 ! <# 

207! <» SAIL MESH 

20d! <# 

20Q! CHANGE SGRAPHICS MESH 1X2 * XISFD+SLEN/2 J YIR AD+HT/2 J 
2 10 'CHANGE SGRAPHICS MESH 1X2 » XI SFD+SLEN/2 ] YIHAIHHT/2I 
211! <*U> 

2I2JRTNSUB 

2I3!<******* ********** ************** 

2 I 4 ! <# EXIT MIT.SAILI 

2 1 6 ! <A" *************** *************** 

216! #ENU 
217! EXECV 
2ld!PRNT 
2I9!PRNT 

220! READ (DO YOU WISH TO MAKE A COPY OF THE DRAWING? > AANS 
221! IF (AANS.EQ. "Y") GOSUH PLT 
222! EXECV 
223 ! PmNT 
•224 ! PHNT 
2251PRNT 

226! READ (DO YOU WISH TO CONTINUE TO BALANCE? ) &ANS 

227! IF UANS.EO.-Y") COSUB CLEAR 

22d ! IF (AANS.EQ. "Y" ) RUN NEW MIT. BALANCE 

229! END 
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APPENDIX III 



PROGRAM FLOWCHARTS 



77 




78 




79 




80 




81 




82 




83 




84 




85 




06 




87 




88 




89 



APPENDIX IV 



PROGRAM DATA FILES 
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DATA FILES USED BY GRAPHICS MODULES 



1. Files created by earlier modules. 

MIT. POINTS: This data -file is used in MIT.ENV to obtain 
the 132 offsets generated in the geometry 
modul e. 

MIT.PASSHl: Used by MIT.ENV, MIT.PHULL, and MIT.SAIL1. 

This data file contains the following data 
concerning the envelope geometry: 

Di ameter 
Length overal 1 
Length of forebody 
Length of afterbody 
Submerged center of buoyancy 
Submerged displacement 
Envelope displacement 
Forebody fullness coefficient 
Afterbody coefficient 

MIT. PASSPH2: This data file is used by MIT.PHULL to ob- 
tain the A weight and design name. 



2. Files created by graphics modules. 

a. Data files are created in MIT.PHULL to save data 
describing the individual segments of the pressure 
hull as well as the total volume and center of 
buoyancy of the pressure hull. Within this module, 
all data concerning each segment is maintained in a 
series of one dimensional arrays. Prior to leaving 
the module this data is saved in a series of data 
f i 1 es. 

MIT.PASSFWD: Contains locations of the forward most 
point of each segment. 

MIT.PASSAFT: Contains locations of the aftmost 
point of each segment. 

MIT. PASSDFWD: Contains diameter at the forward most 
point of each segment. 
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MIT. PASSDAFT: Contains the diameter at the a-ftmost 
point o-f each segment. 

MIT.PASSVOL: Volume o-f each pressure hull segment. 

MIT.PASSLCB: Location o-f center o-f buoyancy o-f each 
segment. 

MIT. PASSTYPE: Contains the type o-f each segment 
(cone, cylinder, etc.) 

MIT.PHDATA: Contains total volume and center o-f 
buoyancy o-f the pressure hul 1 . 

b. Parts and drawings generated by graphics modules. 

MIT. SUB. FORMAT: This is the part used by MIT.FORMC 

to generate the Form Part drawing. 
MIT. SUB. FORMAT. FORMC is the name o-f 
the drawing. 

MIT.SUBDRA: This part is activated in MIT.ENV. It 
is used in all graphics modules. 

MIT.HULLOUT: Upon completion o-f CADSUB, the part 
MIT.SUBDRA is -filed under this name. 



92 



APPENDIX V 



LAYER ASSIGNMENTS 
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LAYER ASSIGNMENTS 



Through the use of layers one may remove from view 
parts of a design without totally eliminating them. This 
makes it possible to improve the clarity of the drawing 
and view only those elements of the design that are 
required at any time in the design process. 

The following layer assignments are used in CAOSUB 
graphics modules. 



Layer 


0: 


Border of drawing, horizontal 
cal scales. 


and verti 


Layer 


l: 


Outer envelope. 




Layer 


2: 


Pressure hul 1 . 




Layer 


5: 


Sai 1 . 




Layer 


199: 


Principal characteri sti cs data 


display. 


Layer 


200: 


Data display areas for detailed 


segment 



information and pressure hull design 
summary. 



Layer 205: Negative sign. This is included because 
of the undesirable effects observed in 
MIT.PHULL when attempting to convert a 
negative remaining volume to a text 
entity and including it in the data 
display. If this value is negative, a 
flag is set and the value is converted 
to a positive value. If, when written on 
the screen, the flag is set Layer 205 is 
included in the drawing. If the flag is 
not set Layer 205 is excluded from view. 
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